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ROM BIOS Listing 



This manual contains the ROM BIOS listing for the AT&T Personal Computer 6300 PLUS. The 
Basic Input/Output System (BIOS) is located in the Read-Only Memory (ROM) on the PC 6300 
PLUS motherboard. The ROM BIOS serves as an interface between the computer system and 
the input/output devices connected to the system ports. The information supplied by the ROM 
BIOS controls these devices. During normal operation, the ROM BIOS operates much like a 
driver that is resident in the PC 6300 PLUS memory space. 

The index that follows the listing lets you quickly locate specific information. 
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.LIST 



; END LISTING HERE FOR LIST 1 - START FOR LIST 1 



Macro Definitions 



; MASM does not let you code a 'jump intersegment direct' instruction, so 
; this macro simulates that instruction. 



0000 
0001 



jmpf macro arg1,arg2 

db OEAh 

dw arg2 

dw argl 
endm 



USAGE: 



jmpf seg.off 



EQU's to include correct code for varying hardware versions% 



BETA equ Oh 
G4T0D equ 01h 



; non-zero for a beta test unit asm% 
non-zero for a GEN4 TOD fix% 



0000 
0001 
0002 
0004 



EQU's to help you set rom_id variable for UNIX% 



GEN3 EQU 





TOD EQU 


1 


NEWFLOP EQU 


2 


DMACCEL EQU 


4 



NORMAL GEN 3 UNIT 
GEN 4 TIME OF DAY CHIP INSTALLED 
NEW FLOPPY CIRCUITRY INSTALLED 
DMA ACCELERATOR INSTALLED 



Code Declaration 



0000 



code segment public 'ROM' ; link code segments first 
assume cs:COde, ds: nothing, es : nothing, ss : nothing 



cooo 




cooo 




cooo 


00 


C'001 


07 


C002 


E297 R 


C004 




C004 





ORG 



OCOOOh 



C004 E8 E548 R 

C007 CB 

C008 E8 E55F R 



flags datal 


proc 






chk lo 


db 





; space for checksum of F000:C000 to F000:DFFF 


rom id 


db 


TOD or 


NEWFLOP or DMACCEL ; ROM identifier. 


; rom id 


db 





; ROM identifier. 


rom mt 


dw 


mastab 


; offset of mastab in ROM. 


flags datal 


endp 






far calls 


proc 


far 


; far call table: the user does a far call to 








; F000:C0XX, a near call is done to the proper 
; routine, and a far return back to the user. 


extrn 


bios install: near ; for w.d. hdu % 


extrn 


wx2 fmt 


: near 


; for w.d. format in bios % 


call 


DString 




; F000:C004 (3 bytes per near call) 


ret 






; (1 byte per far return) 


call 


DCrLf 




; F000:C008 
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COOB 


CB 








COOC 


E8 


E56C R 






COOF 


CB 








C010 


E8 


E578 R 






C013 


CB 








C014 


E8 


E582 R 






C017 


CB 








C018 


E8 


E589 R 






C01B 


CB 








C01C 


E8 


E596 R 






C01F 


CB 








C020 


E8 


E5AB R 






C023 


CB 








C024 


E8 


E5B3 R 






C027 


CB 








C028 


E8 


E52A R 






C02B 


CB 








C02C 


E8 


E1C0 R 






C02F 


CB 








C030 


E8 


E22F R 






C033 


CB 








C034 


E8 


0000 E 






C037 


CB 








C038 


E8 


0000 E 






C03B 


CB 








C03C 


D912 R 






C03E 


0000 






C040 


43 


4F 50 59 


52 


49 




47 48 54 20 


28 


43 




29 20 20 20 






C050 


4F 


4C 49 56 


45 


54 




54 49 20 31 


39 38 




34 20 20 20 







ret 




call 


DColon 


ret 




call 


DHexLong 


ret 




call 


DHexWord 


ret 




call 


DHexByte 


ret 




call 


DHexNib 


ret 




call 


DNum 


ret 




call 


DNumW 


ret 




call 


rom checksum 


ret 




call 


rtc chk 


ret 




call 


memtst 


ret 




call 


bios install 


ret 




call 


wx2 fmt 


ret 




dw 


offset banner m 


dw 





db 


'COPYRIGHT (C) 


db 


'OLIVETTI 1984 



F000:C00C 

F000:C010 

F000:C014 

F000:C018 

F000:C01C 

F000:C020 

F000:C024 

F000:C028 

F000:C02C 

F000:C030 

F000:C034% 

F000:C038% 



pointer to banner 

For aligning the copyright message. 



C060 



C060 



far calls endp 
code ends 



Includes of Assembly Modules 



; include flags. asm 
include sysdata.asm 



(this module) 



NAME 



DATE 



ACTION 



Filename: 



sysdata.src 
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= 0000 
= 0030 
= 0040 
= B000 
= B800 
= F000 

= 0007 
= 0008 
= 000D 
= 000A 

= 0000 



0000 
0001 
0002 
0003 
0004 
0005 
0006 
0007 

0008 
0008 
0009 
000A 
000B 
000C 
000D 
000D 
000E 
000F 

0080 
0082 
0081 
0083 



This is the port equate and system data definition module. 
(See flags. src for conditional assembly flags...) 



Global Constants 



absO_seg 

stack_seg 

data_seg 

para mono 

para_graph 

code_seg 

BEL 
BS 
CR 
LF 

NUL 



equ 
equ 
equ 
equ 
equ 
equ 

equ 
equ 
equ 
equ 

equ 



OOOOOh 
00030h 
00040h 
OBOOOh 
0B800h 
OFOOOh 

007h 
008h 
OODh 
OOAh 



PC6300 PLUS Addresses 



i8237A p dma Controller Port Addresses 



dma_addr_0 
dma_count_0 
dma addr 1 
dma count_1 
dma_addr_2 
dma_count_2 
dma_addr_3 
dma_count_3 

dma_status 

dma_command 

dma request 

dma_mask_bit 

dma mode 

dma_ff_clr 

dma_temp 

dma master_clr 

dma_mask_clr 

dma_mask_write 

dma_segm_0 
dma segm 1 
dma_segm_2 
dma segm 3 



equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 

equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 

equ 
equ 
equ 
equ 



OOh 
01h 
02h 
03h 
04h 
05h 
06h 
07h 

08h 
08h 
09h 
OAh 
OBh 
OCh 
ODh 
ODh 
OEh 
OFh 

080h 
082h 
081h 
083h 



16-bit address register - channel - refresh 

16-bit count register 

16-bit address register - channel 1 - not used 

16-bit count register 

16-bit address register - channel 2 - FDU 

16-bit count register 

16-bit address register - channel 3 - display 

16-bit count register 

8-bit read status register 

8-bit write command register 

4-bit write request register 

4-bit (write) set/clear one mask register bit 

6-bit write mode register 

(write) clear byte pointer flip/flop 
8-bit read temporary register 

(write) master clear command 
4-bit (write) clear all mask register bits 
4-bit write all mask register bits at once 



RAM refresh 
not used 
FDU 
display 



4x4-bit high nibble segment port 



TEMP 
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0004 
0000 



0058 
0041 
0056 
0043 



= 0000 



0020 
0021 



0013 



0008 
0008 

000D 



i8237A p dma controller constants 



; dma command port: 



dma cmd disable equ 004h 
dma cmd enable equ OOOh 



dma mode 
dma mode 1 
dma_mode_2 
dma mode 3 



equ 
equ 
equ 
equ 



058h 
041h 
056h 
043h 



dma mask bit port: 



dma unmask equ 



OOOh 



bit #0: memory-to-memory/~l/0 enable 

bit #2: controller disable 

bit #3: compressed/~normal timing 

bit #4: rotating/~fixed priority 

bit #5: extended/~late write selection 

bit #6: DREQ active low/~high 

bit #7: DACK active high/~low 

controller disable (bit #2) command 
memory-to-I/0 , controller enable , normal 
fixed priority, late write, DREQ/DACK 

channel 0, read, autoinitialize, inc- 
rement, single mode for RAM refresh, 
channel 1, verify, autoinit disabled, 
increment, single mode for not used, 
channel 2, write, autoinitialize, inc- 
rement, single mode for FDU. 
channel 3, verify, autoinit disabled, 
increment, single mode for display. 

bits #0-1: channel select 

bit # 2: set/~clr mask bit (off/~on) 

turn on channel for RAM refresh. 



i8259A Programmable Interrupt Controller Port Addresses 



pic_0 
pic 1 



equ 020h ; 8259A 'control' port (A0 = 0) 
equ 021h ; 8259A 'data' port (A0 = 1) 



i8259A Programmable Interrupt Controller Commands 



pic icwl 



equ 



013h 



pic icw2 
pic icw3 

pic icw4 



equ 
equ 

equ 



008h 
008h 

OODh 



ICW1 for both master & slave pic's 

bit #0=1: ICW4 to follow (w/vector base) 

bit #1=1: single mode (no slaves or icw3) 

bit #2=0: call address interval of 8 bytes 

(don't care if 8086 mode — always vectors 4 

byte interval) 

bit #3=0: edge triggered 

interrupt vector base address (INTs 08h - OFh) 

if cascade mode , and IR3 is a 

slave, 8259A is reprogrammed including icw3 

bit #0 = 1-. 8086 mode 

bit #1=0: normal end of int 
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OOFF 

0020 

0060 
0061 
0066 



0040 
0041 
0042 
0043 



= 0036 
= 0074 
= 00B6 



= 0000 



= 0013 



= 0266 



pic offjnsk 

picjieoi 

pic seoi_0 
pic seoi 1 
pic seoi 6 



equ 

equ 

equ 
equ 
equ 



OFFh 

020h 

060h 
061h 
066h 



bit #2=1: specify master for buffered mode 

( specifies slave for buffered mode ) 

bit #3=1: buffered mode 

bit #4=0: not special fully nested 

pic interrupt mask bits (all interrupts off) 



non-specific end-of-interrupt 

specific end-of-interrupt for IR0 
specific end-of-interrupt for IR0 
specific end-of-interrupt for IR6 



i8254 p timer 
i8041A kb 
fdu 



i8254 p timer Port Addresses 



p_8253_0 
p_8253_1 
p_8253_2 
p 8253 Ctrl 



equ 
equ 
equ 
equ 



040h 
041h 
042h 
043h 



8254 p_timer - rtc interrupt - IR0 = INT 08h 
8254 p timer 1 - memory refresh p_dma 
8254 p timer 2 - tone generator for speaker 
8254 p timer control port 



i8254 p timer Control Bytes 



bit #0 
bits #1-3 



-> Binary Code Decimal (BCD) Enable 
-> Mode (0-5) 



000 


Mode 


Interrupt on Terminal Count 


001 


Mode 1 


Programmable One-Shot 


x10 


Mode 2 


Rate Generator 


X11 


Mode 3 


Square Wave Rate Generator 


100 


Mode 4 


Software Triggered Strobe 


101 


Mode 5 


Hardware Triggered Strobe 



bits #4-5 
bits #6-7 



-> Read/Load Instruction (0-3) 
-> Select Counter (0-2) 



tOcmd 
tlcmd 
t2cmd 



equ 036h 
equ 074h 
equ 0B6h 



00 11 011 -> p_8253_0, lsb 1st, mode 3, no BCD 

01 11 010 -> p_8253_1, lsb 1st, mode 2, no BCD 
10 11 011 -> p 8253 2, lsb 1st, mode 3, no BCD 



; i8254 p_timer Counts 

; 8254 input is 1.2288 MHz (3.6864/3) or a period of 813.8 nsec = 0.814 usee 
; Note: PC input is 1.19318 MHz or a period of 838.1 nsec = 0.838 usee 



tOcount equ 

; t1count equ 9 
tlcount equ 19 



; = 65,536 -> (1,228,800 Hz)/(65,536) = 18.75 ints/sec 
; -> (1,193,180 Hz)/(65,536) = 18.21 ints/sec 

; OLD refresh cycle = 9*(813.8 nsec) = 7.32 usee 

; REAL refresh cycle = 19*(813.8 nsec) = 15.5 usee 

; < 15.625 usee minimum required. ( is 18 - safety??) 



tScount equ 614 ; (1.2288 MHz)/(2*614) = 1.00 kHz tone 
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0050 
0052 



0060 
0061 



= 0064 



= 0062 



0065 
0066 



= 0067 



= 0080 
= 00A0 
= 3F60 



Z8530 


Serial Communication 


Controller 










(8530 


not used in the 6300 


PLUS) 










(sec 


data x port 


addresses 


are indexed 


from 


the 


sec 


ctl X 


port 


addresses. 


See com.scr) 











sec ctl a equ 050h ; write to SCC pointer register (0-Fh), 

sec ctl b equ 052h ; then read or write from selected register. 



8041 Keyboard Controller 



p kscan 
p kctrl 



kb status 



equ 


060h 








equ 


061h 


bit 


#7 


reset interrupt pending 






bit 


#6 


kb clock reset 






bit 


#5 


I/O channel (NMI) enable 






bit 


#4 


RAM parity (NMI) enable 






bits 


#3 


& #2: not used 






bit 


#1 


speaker data 






bit 


#0 


speaker gate to p 8253 2 


equ 


064h 


bit 


#1 


input buffer (ok to write byte) 






bit 


#0 


output buffer (byte to be read) 



General Control Ports 



ControlC 



equ 



CommControl equ 
sys conf a equ 



sys conf b equ 



nmi enable equ 
nmi enable_port equ 
p trapce equ 



062h 


bit 


#7: 






bit 


#6: 






bit 


#1: 




065h 








066h 


bit 


#7: 






bit 


#6 


- 

1 




bit 


#5: 






bit 


#4 


- 




bits 


#3 


- #0 


067h 


bits 


#7 


- #6 




bits 


#5 


- #4 




bit 


#3 






bit 


#2 






bit 


#1: 


- 

- 1 




bits 


#0 


- 

- 1 


80h 








OAOh 








3F60h 









Ram parity check. 

I/O channel parity check. 

80287 installed 

27128/~27256 ROM's 
= use indiginous HDU code. 

do not use indiginous HDU code, 
not used 
80287 installed 
RAM configuration 
(number of FDUs)-1 
reserved for monitor type 
Most significant bit for HDU 
table entry selection drive 80h 
Most significant bit for HDU 
table entry selection drive 81h 

= 48 tpi FDU on Drive 

= 96 tpi FDU 

= 48 tpi FDU on Drive 1 

= 96 tpi FDU 



trapce port for power on%% 
reset — above board fix%% 
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0080 
0040 
0020 
0010 
0009 
0008 
0006 
0004 
0003 
0002 
0001 



= 000C 
= 000E 
= 000F 
= 0001 
= 0000 

= 0025 



= 03F2 
= 03F4 
= 03F5 



= 00E6 
= 00C5 
= 004D 



58274A Clock Calendar 
(See calendar. src) 



FDU & HDU Disk Driver Error Codes 



time_out equ 80h 

seek error equ 40h 

fdc error equ 20h 

crc error equ 10h 

dma_seg_error equ 09h 

dma_error equ 08h 

media change equ 06h 

sect not found equ 04h 

write_protect equ 03h 

addr_mark_error equ 02h 

cmd error equ 01h 



;;;;;;;;;;;;; FDU EQUATES 

Controller constants 



f_srt_48 

f_srt_96 

f_hut 

f_hlt 

f_ndma 

f motor wait 



f drive 

f_head 

f numsecs 

f command 

Tbufoff 

f_secnum 

fcyl 

f real drive 



equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 



equ 
equ 
equ 
equ 
equ 

equ 



[bp+0] 
[bp+1] 
[bp+2] 
[bp+3] 
[bp+4] 
[bp+6] 
[bp+7] 
[bp+8] 



1100b 

1110b 

1111b 

1 



37 



48TPI Step Rate Time (6 ms @ 4 Mhz) 
96TPI Step Rate Time (4 ms i 4 Mhz) 
Head Unload Time (480 ms § 4 Mhz) 
Head Load Time (4 ms @ 4 Mhz) 
Not DMA bit (0 = dma on) 

no. of RTC ticks before turning 
motor off. (f_motor_wait x 55ms) 



Floppy Disk port addresses 



f motor port 
f_nec_status 
f nee data 



equ 03F2h 
equ 03F4h 
equ 03F5h 



Floppy Disk commands 



f_read_cmd 
f write cmd 
f format cmd 



equ 0E6h 
equ 0C5h 
equ 04Dh 



byte pointer, 
byte pointer, 
byte pointer, 
byte pointer, 
word pointer, 
byte pointer, 
byte pointer, 
byte pointer. 



drive select port 

disk controller status port 

disk controller data port 



read data 
write data 
format 
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0007 
0008 
0004 
0003 
000F 



0201 



= 03BC 



= 0378 



0278 



= 03D4 



= 03B4 



f recal_cmd 
f_snsint_cmd 
f_snsdrv_cmd 
f specify cmd 
f seek cmd 



equ 


007h 


recalibrate 


equ 


008h 


sense interrupt 


equ 


004h 


sense drive 


equ 


003h 


specify 


equ 


OOFh 


seek 



Game Card 



game card 



equ 



201h 



Parallel Printer Interface 

(prt stat x & prt cmd x port addresses are indexed from the 
prt data x port addresses. See prt.src.) 



prt data a equ 03BCh 

; prt stat_a equ 03BDh 

; prt cmd_a equ 03BEh 

prt data b equ 0378h 

; prt stat_b equ 0379h 

; prt_cmd_b equ 037Ah 

prt data c equ 0278h 

; prt stat c equ 0279h 

; prt cmd c equ 027Ah 



on mother board 



Color and Monochrome Video Controller 

(xxxxx data, xxxxx mode, xxxxx_status, xxxxx_LPclear, and 
xxxxx LPPreset port addresses are indexed from the xxxxx Pointer 
port addresses for color & display. See vid.src and graph. src.) 



; Color Controller. 

color pointer equ 03D4h 

; Monochrome Controller. 

v pointer equ 03B4h 



6845 pointer to internal regs 



6845 pointer to internal regs 



INS8250 Asynchronous Communication Chip 

(com int_x, com_lctl_x, com_mctl_x, com_lstat_x, and 

com mstat x port addresses are indexed from the com_data_x 

port addresses. See com. src.) 
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= 03F8 
= 03FA 



02F8 
02FA 



0080 
0040 
0020 
0010 
0008 
0001 



0080 
0040 
0020 
0010 
0008 
0004 
0002 
0001 



001D 
002A 
0036 
0038 
003A 
0045 
0046 
0052 
0053 



com_data_a 
; com int_a 
com id a 
com Ictl a 
com mctl a 
com lstat a 
com mstat a 

com data b 
; com_int_b 
com id b 
com lctl_b 
com mctl_b 
com_lstat_b 
com mstat b 



equ 
equ 
equ 
equ 
equ 
equ 
equ 

equ 
equ 
equ 
equ 
equ 
equ 
equ 



03F8h 
03F9h 
03FAh 
03FBh 
03FCh 
03FDh 
03FEh 

02F8h 
02F9h 
02FAh 
02FBh 
02FCh 
02FDh 
02FEh 



channel A 8250 data register/low byte baud 
channel A 8250 high byte baud count register 
channel A 8250 check for presence register 
channel A 8250 line control register 
channel A 8250 modem control register 
channel A 8250 line status register 
channel A 8250 modem status register 

channel B 8250 data register/low byte baud 
channel B 8250 high byte baud count register 
channel B 8250 check for presence register 
channel B 8250 line control register 
channel B 8250 modem control register 
channel B 8250 line status register 
channel B 8250 modem status register 



Keyboard Constants 



shift flag equates within kb flag 



insertjiode 
caps lockjnode 
num lock mode 
scrl lockjnode 
pause mode 
dlx kb 



equ 
equ 
equ 
equ 
equ 
equ 



80h 
40h 
20h 
10h 
08h 
01h 



insert state in action 
caps lock state toggled 
num lock state toggled 
scroll lock state toggled 
pause toggled 
deluxe keyboard 



shift flag equates within kb_flag_1 



insert shift equ 80h 

caps lock shift equ 40h 

num lock_shift equ 20h 

scrl lock shift equ 10h 

alt_shift equ 08h 

cntrl shift equ 04h 

left_shift equ 02h 

right shift equ 01h 



insert key depressed 
caps lock key depressed 
num lock key depressed 
scroll lock key depressed 
alternate shift key depressed 
control shift key depressed 
left shift key depressed 
right shift key depressed 



Scan codes for special function keys 



cntrl_key equ 
left shift_key equ 
right shift key equ 



alt key 
caps_lock_key 
num lock key 
scrl lock_key 
insert_key 
delete key 



equ 
equ 
equ 
equ 
equ 
equ 



29 
42 
54 
56 
58 
69 
70 
82 
83 



control key scan code 
left shift scan code 
right shift scan code 
alt shift key scan code 
shift lock scan code 
number lock scan code 
scroll lock key scan code 
insert key scan code 
delete key scan code 
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0000 



0000 ???????? 

0004 ???????? 

0008 ???????? 

000C ???????? 

0010 ???????? 

0014 ???????? 

0018 ???????? 

001C ???????? 



0020 ???????? 

0024 ???????? 

0028 ???????? 

002C ???????? 

0030 ???????? 

0034 ???????? 

0038 ???????? 

003C ???????? 



0040 ???????? 

0044 ???????? 

0048 ???????? 

004C ???????? 

0050 ???????? 

0054 ???????? 

0058 ???????? 

005C ???????? 

0060 ???????? 

0064 ???????? 

0068 ???????? 



C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



Data Declarations 



Interrupt Locations (dummy data segment to define constant offsets) 



absO segment public 'RAM' ; at absO seg 

assume cs : nothing, ds : nothing, es.- nothing, ss : nothing 



CPU Interrupt Routines 



intOOlocn 
intOllocn 
int021ocn 
int031ocn 
int041ocn 
int051ocn 

int061ocn 
int071ocn 



dd 
dd 
dd 
dd 
dd 
dd 

dd 
dd 



divide by zero 
single step trap 
nmi parity trap 
break interrupt 
divide overflow 
print screen 



; i8259A Hardware Interrupt Routines 



int081ocn 
int091ocn 

intOAlocn 
intOBlocn 
intOClocn 

intODlocn 
intOElocn 

intOFlocn 



dd 
dd 

dd 
dd 
dd 

dd 
dd 

dd 



18254 rtc interrupt 
i8041 kb interrupt 



hard disk interrupt 
floppy disk interrupt 



Software Interrupt Routines 



intlOlocn 
intHlocn 
int12locn 
int13locn 
int14locn 
int15locn 
int16locn 
int17locn 
int18locn 
int19locn 
intlAlocn 



dd 
dd 
dd 
dd 
dd 
dd 
dd 
dd 
dd 
dd 
dd 



display request 

equipment request 

memory size request 

disk I/O request 

serial communication request 

cassette request 

kb request 

printer request 

cassette BASIC pointer 

boot-strap request 

time of day request 
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006C ???????? 

0070 ???????? 

0074 ???????? 

0078 ???????? 

007C ???????? 

0080 



0000 
0000 



0000 



0000 04 [ 



0008 04 [ 



0010 ???? 

0012 ?? 

0013 ???? 
0015 02 [ 



???? 



?? 



0017 ?? 

0018 ?? 

0019 ?? 
001A ???? 
001C ???? 



001E 



10 



???? 



intlBlocn 
intlClocn 
intlDlocn 
intlElocn 
intlFlocn 



dd 
dd 
dd 
dd 
dd 



kb break pointer 

p timer break pointer 

display parameter pointer 

disk parameter pointer 

graphics character extensions pointer 



absO 



ends 



RAM stack 



stack ram segment public 'RAM' ; at stack_seg 
stack ram ends 



System Data Area 



data segment public 'RAM' ; at data_seg 

assume cs-. nothing, ds : nothing, es : nothing, ss : nothing 



Data Area 



i ROM Bios Data Area 

rs232 addr dw 4 dup (?) ; 0040:0000 addresses of rs232 adapters 



printer addr dw 



switch_bits dw 

mfg_tst db 

memory_size dw 

mfg err flag db 



4 dup (?) ; 0040:0008 addresses of printers 



2 dup (?) 



0040:0010 state of DIP switches 

0040:0012 initialization flag 

0040:0013 memory size in kbytes 

0040:0015 error codes for manufacturing 



Keyboard Data Area 



kb_flag 
kb_flag_1 
alt input 
buffer_head 
buffer tail 

kb buffer 



db 
db 
db 
dw 
dw 

dw 



0040:0017 keyboard shift flag status byte 

0040:0018 second byte of keyboard status 

0040:0019 alternate keypad entry 

0040:001A keyboard output pointer offset 

0040:0010 keyboard input pointer offset 



16 dup (?) ; 0040:001E room for 15 entries: head 
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003E 


?? 


003F 


?? 


0040 


?? 


0041 


?? 


0042 




0042 




0042 





07 



?? 



0049 ?? 
004A ???? 
004C ???? 
004E ???? 

0050 08 



0060 ???? 

0062 ?? 

0063 ???? 

0065 ?? 

0066 ?? 



0067 ???? 
0069 ???? 
006B ?? 



006C ???? 
006E ???? 
0070 ?? 



0071 ?? 

0072 ???? 



c 










c 










c 








; 


c 










c 


; Floppy 


1 Diskette Data Area 


c 










c 


seek status 


db 


? 


; 0040:003E 


c 


motor status 


db 


? 


; 0040:003F 


c 


motor count 


db 


? 


; 0040:0040 


c 
c 
c 


diskette status db 


? 


; 0040:0041 


cmd block 


label 


byte 


; 0040:0042 


c 


hd error 


label 


byte 


; 0040:0042 


c 


nee status 


db 


7 dup (?) ; 0040:0042 


c 










c 










c 










c 










c 


; Video 


Display 


Data Area 




c 










c 










c 


v mode 


db 


? 


0040:0049 


c 


v width 


dw 


? 


0040:004A 


c 


v height 


dw 


? 


0040:0040 


c 


v top 


dw 


? 


0040:004E 


c 


v curpos 


dw 


8 dup (? 


) ; 0040:0050 


c 










c 










c 










c 










c 


v cursize 


dw 


? 


0040:0060 


c 


v apage 


db 


? 


0040:0062 


c 


v base6845 


dw 


? 


0040:0063 


c 


v 3x8 


db 


? 


0040:0065 


c 


v colorpal 


db 


? 


0040:0066 


c 










c 


; Optional Post 


Data Area 




c 










c 


io rom init 


dw 


? 


; 0040:0067 


c 


io rom seg 


dw 


? 


; 0040:0069 


c 
c 
c 


inlx flag 


db 


? 


; 0040:006B 


; i8254 


p timer 


Data Aree 


\ 


c 










c 


t low order 


dw 


? 


■ 0040:0060 


c 


t hi order 


dw 


? 


; 0040:006E 


c 


t overflow 


db 


? 


; 0040:0070 


c 










c 


; System 


Data Area 




c 










c 


bios break 


db 


? 


; 0040:0071 


c 
c 
c 


reset flag 


dw 


? 


; 0040:0072 


; Fixed 


Disk Data Area 




c 











tail implies buffer is empty 



floppy disk restore status bits 
floppy disk motor status bits 
floppy disk turn off counter 
floppy disk driver status byte 

HDU command block buffer 

HDU sense byte buffer 

status bytes from NEC controller 



CRT mode 

CRT number of columns (often db) 
CRT length of video ram in bytes 
CRT video ram buffer address 
cursor for each of up to 8 pages 



v_curs_type sets cursor value 



option ROM init routine offset 
option RON init routine segment 
occurrence of interrupt flag 



low word of i8254 p_timer count 
high word of i8254 p timer count 
time rolled over flag 



bit #7 set if break key hit 
= 1234h if keyboard reset hit 
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0074 


?? 


C 


disk status db 


? 


; 0040:0074 fixed disk driver status byte 


0075 


?? 


c 


hf num db 


? 


; 0040:0075 fixed disk drive count 


0076 


?? 


c 


control byte db 


? 


; 0040:0076 fixed disk control byte options 


0077 


?? 


c 
c 
c 
c 
c 


port off db 


? 


; 0040:0077 fixed disk port offset 






; Printer & RS 


-232 Time-Out Data Areas 


0078 


04 [ 


printer t out db 


4 dup (?) 


; 0040:0078 printer time-out variables 




?? 
] 


c 
c 
c 








007C 


04 [ 

?? 
] 


c 
c 
c 
c 
c 


serial t out db 


4 dup (?) 


; 0040:0070 RS-232 time-out variables 






c 
c 
c 


; Additional Keyboard Data 


Area 


0080 


???? 


buffer start dw 


? 


; 0040:0080 offset of kb buffer = 001E 


0082 


???? 


c 
c 
c 
c 
c 
c 
c 
c 


buffer end dw 


? 


; 0040:0082 offset of kb buffer end = 003E 






; Data Area 






0084 


???????? 


master tbl ptr dd 


? 


; 0040:0084 pointer to master table 






c 
c 
c 
c 
c 
c 
c 


mn1~r Hrl 


? 


; 0040:0084 pointer to reseve words EGA 




;;;;;;;,,,, W|J Li uu 






; Reserved% 






0088 


???????? 


resvO dd 


? 


40:88-8b % 


008C 


???? 


c 


resvl dw 


? 


40:8c-8d % 


008E 


?? 


c 


lastrate db 


? 


40:8e-8f last rate used % 


008F 


?? 


c 


db 


? 


% 


0090 


?? 


c 


diskstate db 


? 


40:90,91 drive 0,1 media state% 


0091 


?? 


c 


db 


? 


% 


0092 


?? 


c 


db 


? 


40:92,93 drive 0,1 starting state% 


0093 


?? 


c 
c 
c 


db 


? 


°/o 


0094 


?? 


cur cyl db 


? ; 


current cylinder for drikve 0% 


0095 


?? 


c 


db 


? . 


current cylinder for drive 1% 


0096 


06 [ 

???? 

] 


c 
c 
c 
c 
c 
c 
c 
c 
c 


no thing dw 


6 dup (?) 


; 0040:0094-A1 Reserve for "compatibility" 






; OS Merge Link 


address% 




= 3FA0 


bitread equ 


3fa0h ; 


misc status latch% 


= 0020 


c 
c 


pwrupl equ 


20h ; 


powerup reset bit (low enable)% 
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00A2 ???????? 



00A6 ???????? 



OOAA OC 



00C2 04 



???? 



00CA ???? 

00CC ???? 

00CE ???? 

00D0 ???? 

00D2 ?? 
00D3 



0000 
0000 



osmergel 



osmerge2 



dd 



dd 



40:A2,A3 - offset return to UNIX% 
40:A4,A5 - segment return to UNIX% 

40:A6,A7,A8,A9 - extension % 



Protected mode data space% 



got 



dw 12 dup (?) 



gdtalias dw 4 dup (?) 



seg fail dw 

off fail dw 

dwrite dw 

dread dw 

addr db 
data ends 



Video RAM 



space for gdt AA-C1 



gdt alias C2-C9 



segment fail protected mode RAM test 

CA-CB 

offset fail protected mode RAM test 

CC-CD 

data written for p-mode RAM test 

CE-CF 

data read for p-mode RAM test 

D0-D1 

addr space 



v ram segment public 'RAM' 
v ram ends 



at para mono 



Filename: hdisk.asm 

This module includes the Western Digital Hard Disk 
controller code, wd hdu.asm and wd_fmt.asm. 

Beta Release - 12/14/84 (path) 



0000 



code segment common 'ROM' 

assume cs:Code, ds : nothing, es : nothing, ss : nothing 

.LIST 
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B831 



= 0021 
= 0013 



= 0001 
= 0002 
= 0009 
= 004C 



= 0007 
= 0011 
= 0012 

B840 



B840 



B840 


50 


B841 


8C C8 


B843 


8E D8 


B845 


BA B8E2 R 


B848 


B4 09 


B84A 


CD 21 



c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



include wd_f mt . asm 

; SUBTTL Format Winchester Disk 
PAGE 62,132 
Version 07 was integrated to our working version that resides on the 
motherboard 
Version 03 

Bill Bailey 84/06/12 - 84/06/13 
Version 02 

Bob Hossley 84/04/10 - 84/04/12 
Version 01 
Bob Hossley 83/09/16 - 83/09/16 

Call: JMP WX2_FMT 

Purpose: Format the specified drive with the specified interleave. 

Entry: 

(AH) = Relative number of target drive. Drive 80h + d is the target. 
(AL) = Interleave factor. 

Exit: Job terminated. 

CODE SEGMENT COMMON 'ROM' 

ASSUME CS : CODE, DS: CODE 

; Interrupt Vectors 
IVFC EQU 21H 
IVDBC EQU 13H 

; Function call numbers 
FCKBIN EQU 1 
FCDISB EQU 2 
FCPRSTR EQU 9 
FCTEND EQU 04CH 

; Disk BIOS command codes 



function call interrupt number 
; Disk BIOS call 



keyboard input 
display byte 
print string 
terminate 



CCFD EQU 
CCREC EQU 
CCRT EQU 

ORG 



7 

11H 

12H 

0B840H 



; format drive 
; recal 
; ram test 



PUBLIC WX2_FMT 
WX2_FMT PROC NEAR 

ASSUME CS : CODE, DS: CODE 



PUSH 


AX 


MOV 


AX,CS 


MOV 


DS,AX 


MOV 


DX, OFFSET MI 


MOV 


AH, FCPRSTR 


INT 


IVFC 



drive offset & interleave factor 
code segment pointer 
init. data segment pointer 
pointer to hello message 
print string 
function call 
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B84C 


58 




B84D 


OA 


CO 


B84F 


75 


02 


B851 


BO 


03 


B853 






B853 


80 


E4 07 


B856 


50 




B857 


80 


C4 30 


B85A 


8A 


D4 


B85C 


B4 


02 


B85E 


CD 


21 


B860 


BA B99F R 


B863 


B4 


09 


B865 


CD 


21 


B867 


58 




B868 


50 




B869 


E8 B8C7 R 


B86C 


B4 


01 


B86E 


CD 


21 


B870 


3C 


79 


B872 


74 


OC 


B874 


3C 


59 


B876 


74 


08 


B878 


58 




B879 


BA 


B9E0 R 


B87C 


2A 


FF 


B87E 


EB 


3D 



B880 


58 


B881 


8A D4 


B883 


80 C2 80 


B886 


8A E2 


B888 


50 


B889 


B4 12 


B88B 


CD 13 


B88D 


8A FC 


B88F 


72 1A 



B891 


58 


B892 


50 


B893 


2A F6 


B895 


B9 0001 


B898 


B4 07 


B89A 


CD 13 


B89C 


8A FC 


B89E 


72 OB 



C 


POP 


AX 


C 


OR 


AL,AL 


C 


JNZ 


SHORT NOCHG 


C 


MOV 


AL,3 


C NOCHG: 




C 


AND 


AH,07H 


C 


PUSH 


AX 


C ; 


; ; ; ; ADD 


AH,'C 


C 


ADD 


AH, '0' 


c 


MOV 


DL,AH 


c 


MOV 


AH,FCDISB 


c 


INT 


IVFC 


c 


MOV 


DX, OFFSET MINT 


c 


MOV 


AH,FCPRSTR 


c 


INT 


IVFC 


c 


POP 


AX 


c 


PUSH 


AX 


c 


CALL 


DS BY HEX 


c 






c 


MOV 


AH,FCKBIN 


c 


INT 


IVFC 


c 


CMP 


AL,'y' 


c 


JE 


ZFMT 


c 


CMP 


AL.'Y' 


c 


JE 


ZFMT 


c 


POP 


AX 


c 


MOV 


DX, OFFSET MNOD 


c 


SUB 


BH,BH 


c 


JMP 


SHORT ZNX2 


c 






c 


do a ram test command to m 


c 






c 






c : 


FMT: 




c 


POP 


AX 


c 


MOV 


DL,AH 


c 


ADD 


DL,080H 


c 


MOV 


AH,DL 


c 


PUSH 


AX 


c 


MOV 


AH,CCRT 


c 


INT 


IVDBC 


■c 


MOV 


BH,AH 


c 


JC 


ERR 


c 






c 


format the 


drive 


c 






c 






c 


POP 


AX 


c 


PUSH 


AX 


c 


SUB 


DH,DH 


c 


MOV 


CX,1 


c 


MOV 


AH,CCFD 


c 


INT 


IVDBC 


c 


MOV 


BH,AH 


c 


JC 


ERR 



Relative drive # & interleave factor 
test for 0, change to 03H 
jmp if parameters specified 
drive C, interleave of 3 

mask drive number to -- 7. 

Save 

generate drive letter 

generate drive letter 

character to display 

display byte function call # 

Function call 

pointer to interleave message 

print string 

function call 

Relative drive # & interleave factor 

Save 

display (AL) as two hex digits 

Operator response 

keyboard input function call # 

function call 

" y" input? 

br if yes. 

" Y" input? 

br if yes. 

pointer to " Nothing Done Exit" 

no error code 

terminate 



the sector buffer 



; so bios will do hard disk stuff 

; save drive number in final form 

command 

call disk bios 
save error code 
if error 



; (AL) = interleave factor 

zero head number 
sector 1, cylinder 
format drive command code 
call disk BIOS 
save completion code 
;]ump if error 
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B9 0001 


C 
C 
C 
C 
C 




before 
MOV 


exiting 
CX,1 






; recal 




B8A0 




; sector 1, cylinder 


B8A3 


B4 11 


c 




MOV 


AH,CCREC 


; recal command code 


B8A5 


CD 13 


c 




INT 


IVDBC 


; call disk BIOS 


B8A7 


8A FC 


c 




MOV 


BH,AH 


; save completion code 


B8A9 


73 OF 


c 




JNC 


ZNX 


; jump if no error 


B8AB 


58 


c 


ERR: 


POP 


AX 




B8AC 


BA B9C5 R 


c 




MOV 


DX, OFFSET MEC 


; pointer to message 


B8AF 


B4 09 


c 




MOV 


AH,FCPRSTR 


; print string 


B8B1 


CD 21 


c 




INT 


IVFC 


; function call 


B8B3 


8A C7 


c 




MOV 


AL,BH 


; error code 


B8B5 


E8 B8C7 R 


c 




CALL 


DS BY HEX 


display in hex 


B8B8 


EB 07 


c 
c 
c 
c 




JMP 


SHORT ZTEND 


terminate 


B8BA 




ZNX: 








B8BA 


BA B9B1 R 


c 




MOV 


DX, OFFSET MSUC 


pointer to message 


B8BD 




c 


ZNX2: 








B8BD 


B4 09 


c 




MOV 


AH,FCPRSTR 


print string 


B8BF 


CD 21 


c 




INT 


IVFC 


function call 


B8C1 




c 


ZTEND: 








B8C1 


8A C7 


c 




MOV 


AL,BH 


completion code=return code 


B8C3 


B4 4C 


c 




MOV 


AH,FCTEND 


terminate 


B8C5 


CD 21 


c 




INT 


IVFC 


function call 


B8C7 




c \ 
c 
c 
c 


M2 FMT 


ENDP 










Call: 




CALL DS BY HEX 








c 
c 
c 
c 
c 
c 

C [ 






return 








Entry 


: (AL) 


= byte to display 








Exit.- 


AX, CL 


, DL changed. 




B8C7 




)S BY HEX 


PROC NEAR 




B8C7 


50 


c 




PUSH 


AX ; 


save in stack 


B8C8 


B1 04 


c 




MOV 


CL,4 ; 


shift count 


B8CA 


D2 E8 


c 




SHR 


AL,CL ; 


align MS 4 bits 


B8CC 


E8 B8D3 R 


c 




CALL 


ZHEX ; 


convert to hex 


B8CF 


58 


c 




POP 


AX ; 


byte to display 


B8D0 


EB 01 90 


c 




JMP 


ZHEX ; 


convert to hex, display, & exit 


B8D3 




C [ 

c 
c 


)S BY HEX 


ENDP 








Call: 




CALL ZHEX 








c 

C ; 
C ; 
C ; 
C ; 

c 

C 1 






return 








Entry 




(AL) bits - 3 = Nibble 


to display 






Exit: 


AX, DL changed. 




B8D3 




HEX 


PROC 


NEAR 




B8D3 


24 OF 


c 




AND 


AL,OFH ; 


mask to 4 bits 
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B8D5 
B8D7 
B8D8 
B8DA 
B8DB 
B8DD 
B8DF 
B8E1 
B8E2 



B8E2 



B910 



B924 



B94D 



B97A 



B99F 



B9B1 



B9C5 



04 90 
27 

14 40 
27 

8A DO 
B4 02 
CD 21 
C3 



57 58 
72 6D 
65 76 
6E 20 

28 43 
70 79 
74 20 
65 72 
44 69 
6C 20 
2E 20 
0D 0A 
20 20 

29 20 
6C 61 
20 64 
20 6E 
72 20 
20 37 
20 20 
29 20 
74 65 
76 65 
74 6F 
20 69 
61 6E 
29 0D 
50 72 
22 79 
20 62 
20 66 
74 74 

64 72 
24 

20 11 
69 6E 

65 61 
0D 0A 
61 74 
63 65 
6C 24 
OD OA 
72 2D 
6D 70 



32 20 
61 74 
69 73 

33 2E 
29 20 
72 69 
57 65 
6E 20 
67 69 
43 6F 
31 39 

20 28 
3D 20 

74 69 
72 69 

75 6D 

28 30 

29 OD 
20 28 
3D 20 
72 6C 
20 66 

72 20 

73 20 

64 61 
OA 

65 73 
22 20 
65 67 
6F 72 
69 6E 
69 76 



46 6F 
20 52 
69 6F 
30 20 
43 6F 
67 68 

73 74 

74 61 

72 70 
38 34 

41 48 
52 65 
76 65 
76 65 
62 65 
20 2D 
OA 

41 4C 
49 6E 
65 61 
61 63 
28 33 

73 74 

72 64 

73 20 

74 6F 
69 6E 
6D 61 
67 20 
65 20 



69 74 68 20 
74 65 72 6C 
76 65 20 24 
46 6F 72 6D 
20 53 75 63 
73 73 66 75 

45 72 72 6F 
2D 2D 63 6F 
6C 65 74 69 



ZHEX 



ADD AL,90H 

DAA 

ADC AL,40H 

DAA 

MOV DUAL 

MOV AH,FCDISB 

INT IVFC 

RET 

ENDP 



hex digit to display 
display byte function call # 
Function call 



MI 



DB 'WX2 Format Revision 3.0 (C) Copyright Western 



DB 'Digital Corp. 1984' , ODH, OAH 



DB 



(AH) = Relative drive number (0 - 7)', ODH, OAH 



DB 



(AL) = Interleave factor (3 is standard)' ,0DH,0AH 



DB 'Press " y" to begin formatting drive 



MINT 



MSUC 



MEC 



DB ' with interleave 



DB ODH , OAH , ' Format Successf ul$ ' 



DB ODH , OAH, ' Error— completion code 
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6F 6E 20 63 6F 64 


C 




65 20 24 


C 


B9E0 


0D 0A 4E 6F 74 68 


C 




69 6E 67 20 44 6F 


C 




6E 65 20 45 78 69 


C 




74 24 


C 


B9F4 


38 35 2F 30 31 2F 


C 




32 39 


C 


B9FC 




C 
C 



MNOD DB 0DH,0AH, 'Nothing Done Exit$' 



C060 



C060 



DB 



" 85/01/29" 



; release date 













C 


C060 










C 

C 


C060 


00 


00 


00 


00 00 00 


C 




00 


00 






C 


C068 


00 


00 


00 


00 00 00 


c 




00 


00 






c 


C070 


00 


00 


7E 


81 A5 81 


c 




81 


BD 






c 


C078 


99 


81 


7E 


00 00 00 


c 




00 


00 






c 


C080 


00 


00 


7E 


FF DB FF 


c 




FF 


C3 






c 


C088 


E7 


FF 


7E 


00 00 00 


c 




00 


00 






c 


C090 


00 


00 


00 


36 7F 7F 


c 




7F 


7F 






c 


C098 


3E 


1C 


08 


00 00 00 


c 




00 


00 






c 


C0A0 


00 


00 


00 


08 1C 3E 


c 




7F 


3E 






c 


C0A8 


1C 


08 


00 


00 00 00 


c 




00 


00 






c 


COBO 


00 


00 


18 


3C 3C E7 


c 




E7 


E7 






c 


C0B8 


18 


18 3C 


00 00 00 


c 




00 


00 






c 


COCO 


00 


00 


18 


3C 7E FF 


c 




FF 


7E 






c 


C0C8 


18 


18 


3C 


00 00 00 


c 




00 


00 






c 


CODO 


00 


00 


00 


00 00 18 


c 




3C 


3C 






c 


C0D8 


18 


00 


00 


00 00 00 


c 




00 


00 






c 


COEO 


FF 


FF 


FF 


FF FF E7 


c 




C3 


C3 






c 


C0E8 


E7 


FF 


FF 


FF FF FF 


c 




FF 


FF 






c 


COFO 


00 


00 


00 


00 3C 24 


c 




42 


42 






c 



CODE ENDS 

; END 

code segment public 'ROM' 

assume csrcode, ds: nothing, es : nothing, ss : nothing 

font_lo_8x16 label byte ; 2048 bytes 

include fontlo16.asm 

fontlo16 proc near ; System Font Table for M24 

DB OOOh , OOOh , OOOh , OOOh , OOOh , OOOh , OOOh , OOOh 

DB OOOh , OOOh , OOOh , OOOh , OOOh , OOOh , OOOh , OOOh ; 

DB OOOh , OOOh , 07eh , 081h , 0a5h , 081h , 081h , Obdh 

DB 099h , 081h , 07eh , OOOh , OOOh , OOOh , OOOh , OOOh ; 

DB 000h,000h,07eh,0ffh,0dbh,0ffh,0ffh,0c3h 

DB 0e7h , Of f h , 07eh , OOOh , OOOh , OOOh , OOOh , OOOh ; 

DB OOOh , OOOh , OOOh , 036h , 07f h , 07f h , 07f h , 07f h 

DB 03eh,01ch,008h, OOOh, OOOh, OOOh, OOOh, OOOh ; 

DB OOOh , OOOh , OOOh , 008h , 01ch , 03eh , 07f h , 03eh 

DB 01ch , 008h , OOOh , OOOh , OOOh , OOOh , OOOh , OOOh ; 

DB OOOh , OOOh , 018h , 03ch , 03ch , 0e7h , 0e7h , 0e7h 

DB 018h , 018h , 03ch , OOOh , OOOh , OOOh , OOOh , OOOh ; 

DB 000h,000h,018h,03ch,07eh,0ffh,0ffh,07eh 

DB 018h,018h,03ch, OOOh, OOOh, OOOh, OOOh, OOOh ; 

DB OOOh , OOOh , OOOh , OOOh , OOOh , 018h , 03ch , 03ch 

DB 018h, OOOh, OOOh, OOOh, OOOh, OOOh, OOOh, OOOh ; 

DB 0ffh,0ffh,0ffh,0ffh,0ffh,0e7h,0c3h,0c3h 

DB 0e7h,0ffh,0ffh,0ffh,0ffh,0ffh,0ffh,0ffh ; 

DB OOOh , OOOh , OOOh , OOOh , 03ch , 024h , 042h , 042h 
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C0F8 


24 3C 00 


00 00 00 


C 




00 00 




C 


C100 


FF FF FF 


FF C3 DB 


C 




BD BD 




C 


C108 


DB C3 FF 


FF FF FF 


C 




FF FF 




C 


C110 


00 00 1F 


07 OD 19 


C 




78 CC 




C 


C118 


CC CC 78 


00 00 00 


C 




00 00 




C 


C120 


00 00 3C 


66 66 66 


C 




3C 18 




C 


C128 


7E 18 18 


00 00 00 


C 




00 00 




C 


C130 


00 00 OC 


OA 09 09 


C 




09 OA 




C 


C138 


08 38 78 


78 30 00 


C 




00 00 




c 


C140 


00 00 1F 


11 1F 11 


c 




11 11 




c 


C148 


13 37 77 


72 20 00 


c 




00 00 




c 


C150 


00 00 18 


18 DB 3C 


c 




E7 3C 




c 


C158 


DB 18 18 


00 00 00 


c 




00 00 




c 


C160 


00 00 40 


60 70 7C 


c 




7F 7C 




c 


C168 


70 60 40 


00 00 00 


c 




00 00 




c 


C170 


00 00 01 


03 07 1F 


c 




7F 1F 




c 


C178 


07 03 01 


00 00 00 


c 




00 00 




c 


C180 


00 00 18 


3C 7E 18 


c 




18 18 




c 


C188 


7E 3C 18 


00 00 00 


c 




00 00 




c 


C190 


00 00 33 33 33 33 


c 




33 33 




c 


C198 


00 33 33 


00 00 00 


c 




00 00 




c 


C1A0 


00 00 7F 


DB DB DB 


c 




7B 1B 




c 


C1A8 


1B 1B 1B 00 00 00 


c 




00 00 




c 


C1B0 


00 3E 63 


30 1C 36 


c 




63 63 




c 


C1B8 


36 1C 06 63 3E 00 


c 




00 00 




c 


C1C0 


00 00 00 00 00 00 


c 




00 00 




c 


C1C8 


7F 7F 7F 


00 00 00 


c 




00 00 




c 


C1D0 


00 00 18 


3C 7E 18 


c 



DB 024h , 03ch , OOOh , OOOh , OOOh , OOOh , OOOh , OOOh 

DB 0ffh,0ffh,0ffh,0ffh,0c3h,0dbh,0bdh,0bdh 

DB 0dbh,0c3h,0ffh,0ffh,0ffh,0ffh,0ffh,0ffh 

DB OOOh , OOOh , 01f h , 007h , OOdh , 019h , 078h , Occh 

DB Occh , Occh , 078h , OOOh , OOOh , OOOh , OOOh , OOOh 

DB OOOh , OOOh , 03ch , 066h , 066h , 066h , 03ch , 018h 

DB 07eh , 018h , 018h , OOOh , OOOh , OOOh , OOOh , OOOh 

DB OOOh , OOOh , OOch , OOah , 009h , 009h , 009h , OOah 

DB 008h , 038h , 078h , 078h , 030h , OOOh , OOOh , OOOh 

DB OOOh, OOOh, 01fh,011h,01fh,011h,011h,011h 

DB 13h , 037h , 077h , 072h , 020h , OOOh , OOOh , OOOh 

DB OOOh , OOOh , 018h , 018h , Odbh , 03ch , 0e7h , 03ch 

DB Odbh , 018h , 018h , OOOh , OOOh , OOOh , OOOh , OOOh 

DB OOOh , OOOh , 040h , 060h , 070h , 07ch , 07f h , 07ch 

DB 070h , 060h , 040h , OOOh , OOOh , OOOh , OOOh , OOOh 

DB OOOh, OOOh, 001h,003h,007h,01fh,07fh,01fh 

DB 007h , 003h , 001h , OOOh , OOOh , OOOh , OOOh , OOOh 

DB OOOh, OOOh, 018h,03ch,07eh,018h,018h,018h 

DB 07eh , 03ch , 018h , OOOh , OOOh , OOOh , OOOh , OOOh 

DB OOOh , OOOh , 033h , 033h , 033h , 033h , 033h , 033h 

DB OOOh , 033h , 033h , OOOh , OOOh , OOOh , OOOh , OOOh 

DB OOOh , OOOh , 07f h , Odbh , Odbh , Odbh , 07bh , 01bh 

DB 01bh , 01bh , 01bh , OOOh , OOOh , OOOh , OOOh , OOOh 

DB OOOh , 03eh , 063h , 030h , 01ch , 036h , 063h , 063h 

DB 036h , 01ch , 006h , 063h , 03eh , OOOh , OOOh , OOOh 

DB OOOh , OOOh , OOOh , OOOh , OOOh , OOOh , OOOh , OOOh 

DB 071 h , 07f h , 07f h , OOOh , OOOh , OOOh , OOOh , OOOh 

DB OOOh , OOOh , 018h , 03ch , 07eh , 018h , 018h , 018h 



10 



11 



12 



13 



14 



15 



16 
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18 18 


C 


C1D8 


7E 3C 18 FF 00 00 


C 




00 00 


C 


C1E0 


00 00 18 3C 7E 18 


C 




18 18 


C 


C1E8 


18 18 18 00 00 00 


C 




00 00 


C 


C1F0 


00 00 18 18 18 18 


C 




18 18 


C 


C1F8 


7E 3C 18 00 00 00 


C 




00 00 


c 


C200 


00 00 00 00 0C 06 


c 




7F 06 


c 


C208 


0C 00 00 00 00 00 


c 




00 00 


c 


C210 


00 00 00 00 18 30 


c 




7F 30 


c 


C218 


18 00 00 00 00 00 


c 




00 00 


c 


C220 


00 00 00 00 60 60 


c 




60 60 


c 


C228 


7F 7F 00 00 00 00 


c 




00 00 


c 


C230 


00 00 00 00 24 42 


c 




FF 42 


c 


C238 


24 00 00 00 00 00 


c 




00 00 


c 


C240 


00 00 00 00 00 00 


c 




00 18 


c 


C248 


3C 7E FF 00 00 00 


c 




00 00 


c 


C250 


00 00 00 00 00 FF 


c 




7E 3C 


c 


C258 


18 00 00 00 00 00 


c 




00 00 


c 


C260 


00 00 00 00 00 00 


c 




00 00 


c 


C268 


00 00 00 00 00 00 


c 




00 00 


c 


C270 


00 00 18 3C 3C 3C 


c 




18 18 


c 


C278 


00 18 18 00 00 00 


c 




00 00 


c 


C280 


00 66 66 66 24 00 


c 




00 00 


c 


C288 


00 00 00 00 00 00 


c 




00 00 


c 


C290 


00 00 36 36 7F 36 


c 




36 36 


c 


C298 


7F 36 36 00 00 00 


c 




00 00 


c 


C2A0 


08 08 3E 63 60 60 


c 




3E 03 


c 


C2A8 


03 63 3E 08 08 00 


c 




00 00 


c 



DB 07eh,03ch,018h, Of fh, OOOh, OOOh, OOOh, OOOh ; 17 

DB OOOh , OOOh , 018h , 03ch , 07eh , 018h , 018h , 018h 

DB 018h,018h,018h, OOOh, OOOh, OOOh, OOOh, OOOh ; 18 

DB OOOh, OOOh, 018h,018h,018h,018h,018h,018h 

DB 07eh,03ch,018h, OOOh, OOOh, OOOh, OOOh, OOOh ; 19 

DB OOOh , OOOh , OOOh , OOOh , OOch , 006h , 07f h , 006h 

DB OOch, OOOh, OOOh, OOOh, OOOh, OOOh, OOOh, OOOh ; 1a 

DB OOOh , OOOh , OOOh , OOOh , 018h , 030h , 07f h , 030h 

DB 018h, OOOh, OOOh, OOOh, OOOh, OOOh, OOOh, OOOh ; 1b 

DB OOOh , OOOh , OOOh , OOOh , 060h , 060h , 060h , 060h 

DB 07fh,07fh, OOOh, OOOh, OOOh, OOOh, OOOh, OOOh ; 1c 

DB OOOh , OOOh , OOOh , OOOh , 024h , 042h , Of f h , 042h 

DB 024h, OOOh, OOOh, OOOh, OOOh, OOOh, OOOh, OOOh ; 1d 

DB OOOh , OOOh , OOOh , OOOh , OOOh , OOOh , OOOh , 018h 

DB 03ch,07eh,0ffh, OOOh, OOOh, OOOh, OOOh, OOOh ; 1e 

DB OOOh , OOOh , OOOh , OOOh , OOOh , Of f h , 07eh , 03ch 

DB 018h, OOOh, OOOh, OOOh, OOOh, OOOh, OOOh, OOOh ; 1f 

DB OOOh , OOOh , OOOh , OOOh , OOOh , OOOh , OOOh , OOOh 

DB OOOh, OOOh, OOOh, OOOh, OOOh, OOOh, OOOh, OOOh ; ' ' 20 

DB OOOh , OOOh , 018h , 03ch , 03ch , 03ch , 018h , 018h 

DB OOOh, 018h,018h, OOOh, OOOh, OOOh, OOOh, OOOh ;'!' 21 

DB OOOh , 066h , 066h , 066h , 024h , OOOh , OOOh , OOOh 

DB OOOh , OOOh , OOOh , OOOh , OOOh , OOOh , OOOh , OOOh ; '" ' 22 

DB OOOh , OOOh , 036h , 036h , 07f h , 036h , 036h , 036h 

DB 07f h , 036h , 036h , OOOh , OOOh , OOOh , OOOh , OOOh ; ' # ' 23 

DB 008h , 008h , 03eh , 063h , 060h , 060h , 03eh , 003h 

DB 003h , 063h , 03eh , 008h , 008h , OOOh , OOOh , OOOh ; ' $ ' 24 
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C2B0 


00 


00 


00 


61 63 06 


C 




OC 


18 






C 


C2B8 


30 


63 


43 


00 00 00 


C 




00 


00 






C 


C2C0 


00 


00 


1C 


36 36 1C 


C 




3B 


6E 






C 


C2C8 


66 


66 


3B 


00 00 00 


C 




00 


00 






C 


C2D0 


00 


30 


30 


30 60 00 


C 




00 00 






c 


C2D8 


00 


00 


00 


00 00 00 


c 




00 


00 






c 


C2E0 


00 


00 


OC 


18 30 30 


c 




30 


30 






c 


C2E8 


30 


18 


OC 


00 00 00 


c 




00 


00 






c 


C2F0 


00 


00 


30 


18 OC OC 


c 




OC 


OC 






c 


C2F8 


OC 


18 


30 


00 00 00 


c 




00 


00 






c 


C300 


00 


00 


00 


00 66 3C 


c 




7E 


3C 






c 


C308 


66 


00 


00 


00 00 00 


c 




00 


00 






c 


C310 


00 


00 


00 


00 18 18 


c 




7E 


18 






c 


C318 


18 


00 


00 


00 00 00 


c 




00 


00 






c 


C320 


00 


00 


00 


00 00 00 


c 




00 


00 






c 


C328 


18 


18 


18 


30 00 00 


c 




00 


00 






c 


C330 


00 


00 


00 


00 00 00 


c 




7E 


00 






c 


C338 


00 


00 


00 


00 00 00 


c 




00 


00 






c 


C340 


00 


00 


00 


00 00 00 


c 




00 


00 






c 


C348 


00 


18 


18 


00 00 00 


c 




00 


00 






c 


C350 


00 


00 


01 


03 06 OC 


c 




18 


30 






c 


C358 


60 


40 


00 


00 00 00 


c 




00 


00 






c 


C360 


00 


00 


3E 


63 67 6F 


c 




7B 


73 






c 


C368 


63 


63 


3E 


00 00 00 


c 




00 


00 






c 


C370 


00 


00 


OC 


1C 3C OC 


c 




OC 


OC 






c 


C378 


OC 


OC 


3F 


00 00 00 


c 




00 


00 






c 


C380 


00 


00 


3E 


63 03 06 


c 




OC 


18 






c 


C388 


30 


63 


7F 


00 00 00 


c 



DB OOOh , OOOh , OOOh , 061h , 063h , 006h , OOch , 018h 

DB 030h , 063h , 043h , OOOh , OOOh , OOOh , OOOh , OOOh ; ' % ' 25 

DB OOOh , OOOh , 01ch , 036h , 036h , 01ch T 03bh , 06eh 

DB 066h , 066h , 03bh , OOOh , OOOh , OOOh , OOOh , OOOh ; ' & ' 26 

DB OOOh , 030h , 030h , 030h , 060h , OOOh , OOOh , OOOh 

DB OOOh , OOOh , OOOh , OOOh , OOOh , OOOh , OOOh , OOOh ; " ' 27 

DB OOOh , OOOh , OOch , 018h , 030h , 030h , 030h , 030h 

DB 030h,018h, OOch, OOOh, OOOh, OOOh, OOOh, OOOh ;'(' 28 

DB OOOh , OOOh , 030h , 018h , OOch , OOch , OOch , OOch 

DB OOch, 018h,030h, OOOh, OOOh, OOOh, OOOh, OOOh ;')' 29 

DB OOOh , OOOh , OOOh , OOOh , 066h , 03ch , 07eh , 03ch 

DB 066h , OOOh , OOOh , OOOh , OOOh , OOOh , OOOh , OOOh ; ' * ' 2a 

DB OOOh , OOOh , OOOh , OOOh , 018h , 018h , 07eh , 018h 

DB 018h , OOOh , OOOh , OOOh , OOOh , OOOh , OOOh , OOOh ; ' + ' 2b 

DB OOOh , OOOh , OOOh , OOOh , OOOh , OOOh , OOOh , OOOh 

DB 018h,018h,018h,030h, OOOh, OOOh, OOOh, OOOh ;',' 2c 

DB OOOh , OOOh , OOOh , OOOh , OOOh , OOOh , 07eh , OOOh 

DB OOOh , OOOh , OOOh , OOOh , OOOh , OOOh , OOOh , OOOh ; ' - ' 2d 

DB OOOh , OOOh , OOOh , OOOh , OOOh , OOOh , OOOh , OOOh 

DB OOOh , 018h , 018h , OOOh , OOOh , OOOh , OOOh , OOOh ; ' . ' 2e 

DB OOOh , OOOh , 001h , 003h , 006h , OOch , 018h , 030h 

DB 060h , 040h , OOOh , OOOh , OOOh , OOOh , OOOh , OOOh ; 7 ' 2f 

DB OOOh , OOOh , 03eh , 063h , 067h , 06f h , 07bh , 073h 

DB 063h , 063h , 03eh , OOOh , OOOh , OOOh , OOOh , OOOh ; ' ' 30 

DB OOOh , OOOh , OOch , 01ch , 03ch , OOch , OOch , OOch 

DB OOch, OOch, 03fh, OOOh, OOOh, OOOh, OOOh, OOOh ; '1' 31 

DB OOOh , OOOh , 03eh , 063h , 003h , 006h , OOch , 018h 

DB 030h , 063h , 07f h , OOOh , OOOh , OOOh , OOOh , OOOh ; ' 2 ' 32 
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00 00 


C 


C390 


00 00 3E 63 03 03 


C 




1E 03 


C 


C398 


03 63 3E 00 00 00 


C 




00 00 


C 


C3A0 


00 00 06 0E 1E 36 


C 




66 7F 


C 


C3A8 


06 06 OF 00 00 00 


C 




00 00 


C 


C3B0 


00 00 7E 60 60 60 


C 




7E 03 


C 


C3B8 


03 63 3E 00 00 00 


C 




00 00 


C 


C3C0 


00 00 1C 30 60 60 


c 




7E 63 


c 


C3C8 


63 63 3E 00 00 00 


c 




00 00 


c 


C3D0 


00 00 7F 63 03 06 


c 




0C 18 


c 


C3D8 


18 18 18 00 00 00 


c 




00 00 


c 


C3E0 


00 00 3E 63 63 63 


c 




3E 63 


c 


C3E8 


63 63 3E 00 00 00 


c 




00 00 


c 


C3F0 


00 00 3E 63 63 63 


c 




3F 03 


c 


C3F8 


03 06 1C 00 00 00 


c 




00 00 


c 


C400 


00 00 00 00 18 18 


c 




00 00 


c 


C408 


00 18 18 00 00 00 


c 




00 00 


c 


C410 


00 00 00 00 18 18 


c 




00 00 


c 


C418 


00 18 18 30 00 00 


c 




00 00 


c 


C420 


00 00 06 0C 18 30 


c 




60 30 


c 


C428 


18 0C 06 00 00 00 


c 




00 00 


c 


C430 


00 00 00 00 7E 00 


c 




00 00 


c 


C438 


7E 00 00 00 00 00 


c 




00 00 


c 


C440 


00 00 60 30 18 0C 


c 




06 0C 


c 


C448 


18 30 60 00 00 00 


c 




00 00 


c 


C450 


00 00 3E 63 63 06 


c 




OC OC 


c 


C458 


00 OC OC 00 00 00 


c 




00 00 


c 


C460 


00 00 3E 63 63 6F 


c 




6F 6F 


c 



DB OOOh , OOOh , 03eh , 063h , 003h , 003h , 01eh , 003h 

DB 003h , 063h , 03eh , OOOh , OOOh , OOOh , OOOh , OOOh 

DB OOOh , OOOh , 006h , OOeh , 01eh , 036h , 066h , 07f h 

DB 006h , 006h , OOf h , OOOh , OOOh , OOOh , OOOh , OOOh 

DB OOOh , OOOh , 07eh , 060h , 060h , 060h , 07eh , 003h 

DB 003h , 063h , 03eh , OOOh , OOOh , OOOh , OOOh , OOOh 

DB OOOh , OOOh , 01ch , 030h , 060h , 060h , 07eh , 063h 

DB 063h , 063h , 03eh , OOOh , OOOh , OOOh , OOOh , OOOh 

DB OOOh , OOOh , 071 h , 063h , 003h , 006h , OOch , 018h 

DB 018h,018h,018h, OOOh, OOOh, OOOh, OOOh, OOOh 

DB OOOh , OOOh , 03eh , 063h , 063h , 063h , 03eh , 063h 

DB 063h , 063h , 03eh , OOOh , OOOh , OOOh , OOOh , OOOh 

DB OOOh , OOOh , 03eh , 063h , 063h , 063h , 03f h , 003h 

DB 003h , 006h , 01ch , OOOh , OOOh , OOOh , OOOh , OOOh 

DB OOOh , OOOh , OOOh , OOOh , 018h , 018h , OOOh , OOOh 

DB OOOh , 018h , 018h , OOOh , OOOh , OOOh , OOOh , OOOh 

DB OOOh , OOOh , OOOh , OOOh , 018h , 018h , OOOh , OOOh 

DB OOOh , 018h , 018h , 030h , OOOh , OOOh , OOOh , OOOh 

DB OOOh , OOOh , 006h , OOch , 018h , 030h , 060h , 030h 

DB 018h , OOch , 006h , OOOh , OOOh , OOOh , OOOh , OOOh 

DB OOOh , OOOh , OOOh , OOOh , 07eh , OOOh , OOOh , OOOh 

DB 07eh , OOOh , OOOh , OOOh , OOOh , OOOh , OOOh , OOOh 

DB OOOh , OOOh , 060h , 030h , 018h , OOch , 006h , OOch 

DB 018h , 030h , 060h , OOOh , OOOh , OOOh , OOOh , OOOh 

DB OOOh , OOOh , 03eh , 063h , 063h , 006h , OOch , OOch 

DB OOOh , OOch , OOch , OOOh , OOOh , OOOh , OOOh , OOOh 

DB OOOh , OOOh , 03eh , 063h , 063h , 06f h , 06f h , 06f h 



'3' 33 



'4' 34 



'5' 35 



'6' 36 



;'7' 37 



;'8' 38 



'9' 39 



':' 3a 



;' 3b 



'<* 3c 



3d 



'>' 3e 



'?' 3f 
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C468 


6E 60 
00 00 


3E 


00 00 00 


C 
C 


C470 


00 00 
63 7F 


08 


1C 36 63 


C 
C 


C478 


63 63 
00 00 


63 


00 00 00 


C 
C 


C480 


00 00 
3E 33 


7E 


33 33 33 


C 

C 


C488 


33 33 
00 00 


7E 


00 00 00 


C 
C 


C490 


00 00 
60 60 


1E 


33 60 60 


C 
C 


C498 


60 33 
00 00 


1E 


00 00 00 


C 
C 


C4A0 


00 00 
33 33 


7C 


36 33 33 


C 

c 


C4A8 


33 36 
00 00 


7C 


00 00 00 


c 
c 


C4B0 


00 00 
3C 34 


7F 


33 30 34 


c 
c 


C4B8 


30 33 
00 00 


7F 


00 00 00 


c 

c 


C4C0 


00 00 
3C 34 


7F 


33 30 34 


c 
c 


C4C8 


30 30 
00 00 


78 


00 00 00 


c 
c 


C4D0 


00 00 
60 6F 


1E 


33 60 60 


c 
c 


C4D8 


63 33 
00 00 


1D 


00 00 00 


c 
c 


C4E0 


00 00 
7F 63 


63 


63 63 63 


c 
c 


C4E8 


63 63 63 00 00 00 


c 




00 00 






c 


C4F0 


00 00 
18 18 


3C 


18 18 18 


c 
c 


C4F8 


18 18 
00 00 


3C 


00 00 00 


c 
c 


C500 


00 00 
06 06 


OF 


06 06 06 


c 
c 


C508 


66 66 
00 00 


3C 


00 00 00 


c 
c 


C510 


00 00 
3C 36 


73 


33 36 36 


c 
c 


C518 


36 33 
00 00 


73 


00 00 00 


c 
c 


C520 


00 00 
30 30 


78 


30 30 30 


c 
c 


C528 


30 33 
00 00 


7F 


00 00 00 


c 
c 


C530 


00 00 63 


77 7F 6B 


c 




63 63 






c 


C538 


63 63 
00 00 


63 


00 00 00 


c 
c 


C540 


00 00 


63 


73 7B 7F 


c 



DB 06eh,060h,03eh, OOOh, OOOh, OOOh, OOOh, OOOh ; '@' 40 

DB OOOh , OOOh , 008h , 01ch , 036h , 063h , 063h , 07 f h 

DB 063h,063h,063h, OOOh, OOOh, OOOh, OOOh, OOOh ; 'A' 41 

DB OOOh , OOOh , 07eh , 033h , 033h , 033h , 03eh , 033h 

DB 033h , 033h , 07eh , OOOh , OOOh , OOOh , OOOh , OOOh ; ' B ' 42 

DB OOOh , OOOh , 01eh , 033h , 060h , 060h , 060h , 060h 

DB 060h , 033h , 01eh , OOOh , OOOh , OOOh , OOOh , OOOh ; ' C ' 43 

DB OOOh , OOOh , 07ch , 036h , 033h , 033h , 033h , 033h 

DB 033h , 036h , 07ch , OOOh , OOOh , OOOh , OOOh , OOOh ; ' D ' 44 

DB OOOh , OOOh , 07f h , 033h , 030h , 034h , 03ch , 034h 

DB 030h,033h,07fh, OOOh, OOOh, OOOh, OOOh, OOOh ; 'E' 45 

DB OOOh , OOOh , 07f h , 033h , 030h , 034h , 03ch , 034h 

DB 030h , 030h , 078h , OOOh , OOOh , OOOh , OOOh , OOOh ; ' F ' 46 

DB OOOh , OOOh , 01eh , 033h , 060h , 060h , 060h , 06f h 

DB 063h,033h,01dh, OOOh, OOOh, OOOh, OOOh, OOOh ; 'G' 47 

DB OOOh , OOOh , 063h , 063h , 063h , 063h , 07f h , 063h 

DB 063h , 063h , 063h , OOOh , OOOh , OOOh , OOOh , OOOh ; ' H ' 48 

DB OOOh, OOOh, 03ch,018h,018h,018h,018h,018h 

DB 018h,018h,03ch, OOOh, OOOh, OOOh, OOOh, OOOh ; T 49 

DB OOOh , OOOh , OOf h , 006h , 006h , 006h , 006h , 006h 

DB 066h,066h,03ch, OOOh, OOOh, OOOh, OOOh, OOOh ;'J' 4a 

DB OOOh , OOOh , 073h , 033h , 036h , 036h , 03ch , 036h 

DB 036h , 033h , 073h , OOOh , OOOh , OOOh , OOOh , OOOh ; ' K ' 4b 

DB OOOh , OOOh , 078h , 030h , 030h , 030h , 030h , 030h 

DB 030h , 033h , 07f h , OOOh , OOOh , OOOh , OOOh , OOOh ; ' L ' 4c 

DB OOOh , OOOh , 063h , 077h , 07f h , 06bh , 063h , 063h 

DB 063h , 063h , 063h , OOOh , OOOh , OOOh , OOOh , OOOh ; ' M ' 4d 

DB OOOh , OOOh , 063h , 073h , 07bh , 07f h , 06f h , 067h 
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6F 67 






C 


C548 


63 63 
00 00 


63 


00 00 00 


C 
C 


C550 


00 00 
63 63 


1C 


36 63 63 


C 

c 


C558 


63 36 
00 00 


1C 


00 00 00 


c 

c 


C560 


00 00 
3E 30 


7E 


33 33 33 


c 
c 


C568 


30 30 
00 00 


78 


00 00 00 


c 
c 


C570 


00 00 
63 63 


1C 


36 63 63 


c 
c 


C578 


6B 3E 
00 00 


1C 


06 03 00 


c 
c 


C580 


00 00 
3E 36 


7E 


33 33 33 


c 
c 


C588 


33 33 73 


00 00 00 


c 




00 00 






c 


C590 


00 00 3E 


63 63 30 


c 




1C 06 






c 


C598 


63 63 
00 00 


3E 


00 00 00 


c 
c 


C5A0 


00 00 
18 18 


7E 


5A 18 18 


c 

c 


C5A8 


18 18 3C 


00 00 00 


c 




00 00 






c 


C5B0 


00 00 
63 63 


63 


63 63 63 


c 

c 


C5B8 


63 63 
00 00 


3E 


00 00 00 


c 
c 


C5C0 


00 00 63 63 63 63 


c 




63 63 






c 


C5C8 


36 1C 
00 00 


08 


00 00 00 


c 
c 


C5D0 


00 00 63 


63 63 63 


c 




63 6B 






c 


C5D8 


6B 7F 36 


00 00 00 


c 




00 00 






c 


C5E0 


00 00 
1C 36 


63 


63 63 36 


c 
c 


C5E8 


63 63 63 


00 00 00 


c 




00 00 






c 


C5F0 


00 00 66 


66 66 66 


c 




66 3C 






c 


C5F8 


18 18 
00 00 


3C 


00 00 00 


c 

c 


C600 


00 00 
18 30 


7F 


63 06 0C 


c 
c 


C608 


60 63 
00 00 


7F 


00 00 00 


c 
c 


C610 


00 00 
30 30 


3C 


30 30 30 


c 
c 


C618 


30 30 
00 00 


3C 


00 00 00 


c 

c 



DB 063h , 063h , 063h , OOOh , OOOh , OOOh , OOOh , OOOh ; ' N ' 4e 

DB OOOh , OOOh , 01ch , 036h , 063h , 063h , 063h , 063h 

DB 063h , 036h , 01ch , OOOh , OOOh , OOOh , OOOh , OOOh ; ' ' 4f 

DB OOOh , OOOh , 07eh , 033h , 033h , 033h , 03eh , 030h 

DB 030h , 030h , 078h , OOOh , OOOh , OOOh , OOOh , OOOh ; ' P ' 50 

DB OOOh , OOOh , 01ch , 036h , 063h , 063h , 063h , 063h 

DB 06bh,03eh T 01ch,006h,003h, OOOh, OOOh, OOOh ; 'Q' 51 

DB OOOh , OOOh , 07eh , 033h , 033h , 033h , 03eh , 036h 

DB 033h , 033h , 073h , OOOh , OOOh , OOOh , OOOh , OOOh ; ' R ' 52 

DB OOOh , OOOh , 03eh , 063h , 063h , 030h , 01ch , 006h 

DB 063h,063h,03eh, OOOh, OOOh, OOOh, OOOh, OOOh ; 'S' 53 

DB OOOh , OOOh , 07eh , 05ah , 018h , 018h , 018h , 018h 

DB 018h , 018h , 03ch , OOOh , OOOh , OOOh , OOOh , OOOh ; ' T ' 54 

DB OOOh , OOOh , 063h , 063h , 063h , 063h , 063h , 063h 

DB 063h , 063h , 03eh , OOOh , OOOh , OOOh , OOOh , OOOh ; ' U ' 55 

DB OOOh , OOOh , 063h , 063h , 063h , 063h , 063h , 063h 

DB 036h , 01ch , 008h , OOOh , OOOh , OOOh , OOOh , OOOh ; ' V ' 56 

DB OOOh , OOOh , 063h , 063h , 063h , 063h , 063h , 06bh 

DB 06bh , 07f h , 036h , OOOh , OOOh , OOOh , OOOh , OOOh ; ' W 57 

DB OOOh , OOOh , 063h , 063h , 063h , 036h , 01ch , 036h 

DB 063h , 063h , 063h , OOOh , OOOh , OOOh , OOOh , OOOh ; ' X ' 58 

DB OOOh , OOOh , 066h , 066h , 066h , 066h , 066h , 03ch 

DB 018h , 018h , 03ch , OOOh , OOOh , OOOh , OOOh , OOOh ; ' Y ' 59 

DB OOOh , OOOh , 07f h , 063h , 006h , OOch , 018h , 030h 

DB 060h,063h,07fh, OOOh, OOOh, OOOh, OOOh, OOOh ; 'Z' 5a 

DB OOOh , OOOh , 03ch , 030h , 030h , 030h , 030h , 030h 

DB 030h,030h,03ch, OOOh, OOOh, OOOh, OOOh, OOOh ;'[' 5b 
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C620 


00 00 40 60 30 18 


C 




0C 06 


C 


C628 


03 01 00 00 00 00 


C 




00 00 


c 


C630 


00 00 3C 0C 0C OC 


c 




0C OC 


c 


C638 


0C 0C 3C 00 00 00 


c 




00 00 


c 


C640 


08 1C 36 63 00 00 


c 




00 00 


c 


C648 


00 00 00 00 00 00 


c 




00 00 


c 


C650 


00 00 00 00 00 00 


c 




00 00 


c 


C658 


00 00 00 00 00 00 


c 




7F 00 


c 


C660 


18 18 OC 00 00 00 


c 




00 00 


c 


C668 


00 00 00 00 00 00 


c 




00 00 


c 


C670 


00 00 00 00 00 3C 


c 




06 3E 


c 


C678 


66 66 3B 00 00 00 


c 




00 00 


c 


C680 


00 00 70 30 30 3E 


c 




33 33 


c 


C688 


33 33 6E 00 00 00 


c 




00 00 


c 


C690 


00 00 00 00 00 3E 


c 




63 60 


c 


C698 


60 63 3E 00 00 00 


c 




00 00 


c 


C6A0 


00 00 OE 06 06 3E 


c 




66 66 


c 


C6A8 


66 66 3B 00 00 00 


c 




00 00 


c 


C6B0 


00 00 00 00 00 3E 


c 




63 7F 


c 


C6B8 


60 63 3E 00 00 00 


c 




00 00 


c 


C6C0 


00 00 1E 33 30 7C 


c 




30 30 


c 


C6C8 


30 30 78 00 00 00 


c 




00 00 


c 


C6D0 


00 00 00 00 00 3B 


c 




66 66 


c 


C6D8 


66 66 3E 06 66 3C 


c 




00 00 


c 


C6E0 


00 00 70 30 30 36 


c 




3B 33 


c 


C6E8 


33 33 73 00 00 00 


c 




00 00 


c 


C6F0 


00 00 OC OC 00 1C 


c 




OC OC 


c 


C6F8 


OC OC 1E 00 00 00 


c 



DB OOOh , OOOh , 040h , 060h , 030h , 018h , OOch , 006h 

DB 003h , 001h , OOOh , OOOh , OOOh , OOOh , OOOh , OOOh ; ' ' 5c 

DB OOOh , OOOh , 03ch , OOch , OOch , OOch , OOch , OOch 

DB OOch, OOch, 03ch, OOOh, OOOh, OOOh, OOOh, OOOh ;']' 5d 

DB 008h , 01ch , 036h , 063h , OOOh , OOOh , OOOh , OOOh 

DB OOOh , OOOh , OOOh , OOOh , OOOh , OOOh , OOOh , OOOh ; ' " ' 5e 

DB OOOh , OOOh , OOOh , OOOh , OOOh , OOOh , OOOh , OOOh 

DB OOOh, OOOh, OOOh, OOOh, OOOh, OOOh, 07fh, OOOh ; '_' 5f 

DB 018h , 018h , OOch , OOOh , OOOh , OOOh , OOOh , OOOh 

DB OOOh, OOOh, OOOh, OOOh, OOOh, OOOh, OOOh, OOOh ;'" 60 

DB OOOh , OOOh , OOOh , OOOh , OOOh , 03ch , 006h , 03eh 

DB 066h , 066h , 03bh , OOOh , OOOh , OOOh , OOOh , OOOh ; ' a ' 61 

DB OOOh , OOOh , 070h , 030h , 030h , 03eh , 033h , 033h 

DB 033h , 033h , 06eh , OOOh , OOOh , OOOh , OOOh , OOOh ; ' b ' 62 

DB OOOh , OOOh , OOOh , OOOh , OOOh , 03eh , 063h , 060h 

DB 060h , 063h , 03eh , OOOh , OOOh , OOOh , OOOh , OOOh ; ' c ' 63 

DB OOOh , OOOh , OOeh , 006h , 006h , 03eh , 066h , 066h 

DB 066h,066h,03bh, OOOh, OOOh, OOOh, OOOh, OOOh ;'d' 64 

DB OOOh , OOOh , OOOh , OOOh , OOOh , 03eh , 063h , 07f h 

DB 060h,063h,03eh, OOOh, OOOh, OOOh, OOOh, OOOh ; 'e' 65 

DB OOOh , OOOh , 01eh , 033h , 030h , 07ch , 030h , 030h 

DB 030h , 030h , 078h , OOOh , OOOh , OOOh , OOOh , OOOh ; ' f ' 66 

DB OOOh , OOOh , OOOh , OOOh , OOOh , 03bh , 066h , 066h 

DB 066h , 066h , 03eh , 006h , 066h , 03ch , OOOh , OOOh ; ' g ' 67 

DB OOOh , OOOh , 070h , 030h , 030h , 036h , 03bh , 033h 

DB 033h , 033h , 073h , OOOh , OOOh , OOOh , OOOh , OOOh ; ' h ' 68 

DB OOOh , OOOh , OOch , OOch , OOOh , 01ch , OOch , OOch 

DB OOch , OOch , 01eh , OOOh , OOOh , OOOh , OOOh , OOOh ; ' i ' 69 
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00 


00 






C 


C700 


00 


00 


OC 


OC 00 1C 


C 




OC 


OC 






C 


C708 


OC 


OC 


OC 


OC CC 78 


C 




00 


00 






C 


C710 


00 


00 


70 


30 30 33 


C 




36 


3C 






c 


C718 


36 


33 


73 


00 00 00 


c 




00 


00 






c 


C720 


00 


00 


1C 


OC OC OC 


c 




OC 


OC 






c 


C728 


OC 


OC 


1E 


00 00 00 


c 




00 


00 






c 


C730 


00 


00 


00 


00 00 66 


c 




7F 


6B 






c 


C738 


6B 


6B 


6B 


00 00 00 


c 




00 


00 






c 


C740 


00 


00 


00 


00 00 6E 


c 




33 


33 






c 


C748 


33 


33 


33 


00 00 00 


c 




00 


00 






c 


C750 


00 


00 


00 


00 00 3E 


c 




63 


63 






c 


C758 


63 


63 


3E 


00 00 00 


c 




00 


00 






c 


C760 


00 


00 


00 


00 00 6E 


c 




33 


33 






c 


C768 


33 


33 


3E 


30 30 78 


c 




00 


00 






c 


C770 


00 


00 


00 


00 00 3B 


c 




66 


66 






c 


C778 


66 


66 


3E 


06 06 OF 


c 




00 


00 






c 


C780 


00 


00 


00 


00 00 6E 


c 




33 


30 






c 


C788 


30 


30 


78 


00 00 00 


c 




00 


00 






c 


C790 


00 


00 


00 


00 00 3E 


c 




63 


38 






c 


C798 


0E 


63 


3E 


00 00 00 


c 




00 


00 






c 


C7A0 


00 


00 


00 


08 18 7E 


c 




18 


18 






c 


C7A8 


18 


IB 


OE 


00 00 00 


c 




00 


00 






c 


C7B0 


00 


00 


00 


00 00 66 


c 




66 


66 






c 


C7B8 


66 


66 


3B 


00 00 00 


c 




00 


00 






c 


C7C0 


00 


00 


00 


00 00 63 


c 




63 


63 






c 


C7C8 


36 


1C 


08 


00 00 00 


c 




00 


00 






c 


C7D0 


00 


00 


00 


00 00 63 


c 




63 


6B 






c 



DB OOOh , OOOh , OOch , OOch , OOOh , 01ch , OOch , OOch 

DB OOch, OOch, OOch, OOch ,0cch,078h, OOOh, OOOh ;'j' 6a 

DB OOOh , OOOh , 070h , 030h , 030h , 033h , 036h , 03ch 

DB 036h,033h,073h, OOOh, OOOh, OOOh, OOOh, OOOh ; 'k' 6b 

DB OOOh , OOOh , 01ch , OOch , OOch , OOch , OOch , OOch 

DB OOch , OOch , 01eh , OOOh , OOOh , OOOh , OOOh , OOOh ; ' 1 ' 6c 

DB OOOh , OOOh , OOOh , OOOh , OOOh , 066h , 07f h , 06bh 

DB 06bh , 06bh , 06bh , OOOh , OOOh , OOOh , OOOh , OOOh ; ' m ' 6d 

DB OOOh , OOOh , OOOh , OOOh , OOOh , 06eh , 033h , 033h 

DB 033h , 033h , 033h , OOOh , OOOh , OOOh , OOOh , OOOh ; ' n ' 6e 

DB OOOh , OOOh , OOOh , OOOh , OOOh , 03eh , 063h , 063h 

DB 063h , 063h , 03eh , OOOh , OOOh , OOOh , OOOh , OOOh ; ' o ' 6f 

DB OOOh , OOOh , OOOh , OOOh , OOOh , 06eh , 033h , 033h 

DB 033h , 033h , 03eh , 030h , 030h , 078h , OOOh , OOOh ; ' p ' 70 

DB OOOh , OOOh , OOOh , OOOh , OOOh , 03bh , 066h , 066h 

DB 066h , 066h , 03eh , 006h , 006h , OOf h , OOOh , OOOh ; ' q ' 71 

DB OOOh , OOOh , OOOh , OOOh , OOOh , 06eh , 033h , 030h 

DB 030h , 030h , 078h , OOOh , OOOh , OOOh , OOOh , OOOh ; ' r ' 72 

DB OOOh , OOOh , OOOh , OOOh , OOOh , 03eh , 063h , 038h 

DB OOeh , 063h , 03eh , OOOh , OOOh , OOOh , OOOh , OOOh ; ' s ' 73 

DB OOOh , OOOh , OOOh , 008h , 018h , 07eh , 018h , 018h 

DB 018h , 01bh , OOeh , OOOh , OOOh , OOOh , OOOh , OOOh ; ' t ' 74 

DB OOOh , OOOh , OOOh , OOOh , OOOh , 066h , 066h , 066h 

DB 066h , 066h , 03bh , OOOh , OOOh , OOOh , OOOh , OOOh ; ' u ' 75 

DB OOOh , OOOh , OOOh , OOOh , OOOh , 063h , 063h , 063h 

DB 036h , 01ch , 008h , OOOh , OOOh , OOOh , OOOh , OOOh ; ' v ' 76 

DB OOOh , OOOh , OOOh , OOOh , OOOh , 063h , 063h , 06bh 
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C7D8 6B 7F 36 00 00 00 C DB 06bh,07fh,036h,000h,000h,000h,000h,000h ; 'w' 77 

00 00 C 

C7E0 00 00 00 00 00 63 C DB 000h,000h,000h,000h,000h,063h,036h,01ch 

36 1C C 

C7E8 1C 36 63 00 00 00 C DB 01ch,036h,063h,000h,000h,000h,000h,000h ; 'x'78 

00 00 C 

C7F0 00 00 00 00 00 63 C DB 000h,000h,000h,000h,000h,063h,066h,066h 

66 66 C 

C7F8 66 66 3E 06 66 3C C DB 066h,066h,03eh,006h,066h,03ch,000h,000h ;'y' 79 

00 00 C 

C800 00 00 00 00 00 7F C DB 000h,000h,000h,000h,000h,07fh,066h 7 00ch 

66 0C C 

C808 18 33 7F 00 00 00 C DB 018h,033h,07fh,000h,000h,000h,000h,000h ; 'z'7a 

00 00 C 

C810 00 00 OE 18 18 18 C DB 000h,000h,00eh,018h,018h,018h,070h,018h 

70 18 C 

C818 18 18 OE 00 00 00 C DB 018h,018h,00eh,000h,000h,000h,000h,000h ;'{' 7b 

00 00 C 

C820 00 00 18 18 18 18 C DB 000h,000h,018h,018h,018h 7 018h,000h,018h 

00 18 C 

C828 18 18 18 00 00 00 C DB 018h,018h,018h,000h,000h,000h,000h,000h ; ' I ' 7c 

00 00 C 

C830 00 00 70 18 18 18 C DB 000h,000h,070h,018h,018h,018h,00eh,018h 

OE 18 C 

C83.8 18 18 70 00 00 00 C DB 018h,018h,070h,000h,000h,000h,000h,000h ; ' } ' 7d 

00 00 C 

C840 00 00 3B 6E 00 00 C DB 000h,000h,03bh,06eh,000h,000h,000h,000h 

00 00 C 

C848 00 00 00 00 00 00 C DB 000h,000h,000h,000h,000h,000h,000h,000h ;'"' 7e 

00 00 C 

C850 00 00 00 00 08 1C C DB 000h,000h,000h,000h,008h,01ch,036h,063h 

36 63 C 

C858 63 7F 00 00 00 00 C DB 063h,07fh,000h,000h,000h,000h,000h,000h ; " 7f 

00 00 C 

C ; End of font matrix 
C 

C860 C fontlo16 endp 

C860 font_hi_8x8 label byte ; 1024 bytes 

C include fonthi8.asm 

C860 C fonthi8 proc near 

C ; SystemFont ; <hi_mediumres> (m24) 8x8 font table for m24 
C 

C860 3C 66 60 66 3C OC C DB 03ch,066h,060h,066h,03ch,00ch,006h,03ch ; 80 

06 3C C 

C868 00 66 00 66 66 66 C DB 000h,066h,000h,066h,066h,066h,03fh,000h ; 81 

3F 00 C 

C870 OE 00 3C 66 7E 60 C DB 00eh,000h,03ch,066h,07eh,060h,03ch,000h ; 82 

3C 00 C 

C878 7E C3 3C 06 3E 66 C DB 07eh,0c3h,03ch,006h,03eh,066h,03fh,000h ; 83 

3F 00 C 

C880 66 00 3C 06 3E 66 C DB 066h,000h,03ch,006h,03eh,066h,03fh,000h ; 84 

3F 00 C 

C888 70 00 3C 06 3E 66 C DB 070h,000h,03ch,006h,03eh,066h,03fh,000h ; 85 

3F 00 C 
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C890 


18 


18 


3C 06 3E 66 


C 




3F 


00 






C 


C898 


00 


00 


3C 


60 60 3C 


C 




06 


1C 






C 


C8A0 


7E 


C3 


3C 


66 7E 60 


C 




3C 


00 






C 


C8A8 


66 


00 


3C 


66 7E 60 


C 




3C 


00 






C 


C8B0 


70 


00 


3C 


66 7E 60 


C 




3C 


00 






C 


C8B8 


66 


00 


38 


18 18 18 


C 




3C 


00 






C 


C8C0 


7C 


C6 


38 


18 18 18 


C 




3C 


00 






C 


C8C8 


70 


00 


38 


18 18 18 


c 




3C 


00 






c 


C8D0 


63 


1C 


36 


63 7F 63 


c 




63 


00 






c 


C8D8 


18 


18 


00 


3C 66 7E 


c 




66 


00 






c 


C8E0 


0E 


00 


7E 


30 3C 30 


c 




7E 


00 






c 


C8E8 


00 


00 


7F 


0C 7F CC 


c 




7F 


00 






c 


C8F0 


1F 


36 


66 


7F 66 66 


c 




67 


00 






c 


C8F8 


3C 


66 


00 


3C 66 66 


c 




3C 


00 






c 


C900 


00 


66 


00 


3C 66 66 


c 




3C 


00 






c 


C908 


00 


70 


00 


3C 66 66 


c 




3C 


00 






c 


C910 


3C 


66 


00 


66 66 66 


c 




3F 


00 






c 


C918 


00 


70 


00 


66 66 66 


c 




3F 


00 






c 


C920 


00 


66 


00 


66 66 3E 


c 




06 


7C 






c 


C928 


C3 


18 


3C 


66 66 3C 


c 




18 


00 






c 


C930 


66 


00 


66 


66 66 66 


c 




3C 


00 






c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



DB 018h , 018h , 03ch , 006h , 03eh , 066h , 03f h , OOOh 

DB OOOh , OOOh , 03ch , 060h , 060h , 03ch , 006h , 01ch 

DB 07eh , 0c3h , 03ch , 066h , 07eh , 060h , 03ch , OOOh 

DB 066h , OOOh , 03ch , 066h , 07eh , 060h , 03ch , OOOh 

DB 070h , OOOh , 03ch , 066h , 07eh , 060h , 03ch , OOOh 

DB 066h , OOOh , 038h , 018h , 018h , 018h , 03ch , OOOh 

DB 07ch , 0c6h , 038h , 018h , 018h , 018h , 03ch , OOOh 

DB 070h , OOOh , 038h , 018h , 018h , 018h , 03ch , OOOh 

DB 063h , 01ch , 036h , 063h , 07f h , 063h , 063h , OOOh 

DB 018h , 018h , OOOh , 03ch , 066h , 07eh , 066h , OOOh 

DB OOeh , OOOh , 07eh , 030h , 03ch , 030h , 07eh , OOOh 

DB OOOh , OOOh , 07f h , OOch , 07f h , Occh , 07f h , OOOh 

DB 01 f h , 036h , 066h , 07f h , 066h , 066h , 067h , OOOh 

DB 03ch , 066h , OOOh , 03ch , 066h , 066h , 03ch , OOOh 

DB OOOh , 066h , OOOh , 03ch , 066h , 066h , 03ch , OOOh 

DB OOOh , 070h , OOOh , 03ch , 066h , 066h , 03ch , OOOh 

DB 03ch , 066h , OOOh , 066h , 066h , 066h , 03f h , OOOh 

DB OOOh , 070h , OOOh , 066h , 066h , 066h , 03f h , OOOh 

DB OOOh , 066h , OOOh , 066h , 066h , 03eh , 006h , 07ch 

DB 0c3h , 018h , 03ch , 066h , 066h , 03ch , 018h , OOOh 

DB 066h , OOOh , 066h , 066h , 066h , 066h , 03ch , OOOh 

#ifdef NORDIC 

DB OOOh , OOOh , OOOh , 03ch , 06eh , 076h , 03ch , OOOh 

DB 01ch , 036h , 032h , 078h , 030h , 073h , 07eh , OOOh 

DB 07ch , 0c6h , Oceh , Odeh , Of 6h , 0e6h , 07ch , OOOh 

DB Of Oh , 060h , 066h , 060h , 062h , 066h , Of eh , OOOh 

DB 070h , 030h , 030h , 036h , 030h , 030h , 078h , OOOh 

#else NORDIC 

#ifdef PORTUGAL 

DB 007h , OOOh , 01ch , 036h , 063h , 07f h , 063h , OOOh 

DB 01ch , 036h , 032h , 078h , 030h , 073h , 07eh , OOOh 

DB 070h , OOOh ,01ch, 036h , 063h , 07f h , 063h , OOOh 

DB 018h , 024h , 07eh , 030h , 03ch , 030h , 03eh , OOOh 

DB 03eh , 063h , 01ch , 036h , 063h , 036h , 01ch , OOOh 



86 
87 
88 
89 
8a 
8b 
8c 
8d 
8e 
8f 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
9a 



9b 
9c 
9d 
9e 
9f 



9b 
9c 
9d 
9e 
9f 
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c 


#else PORTUGAL 




c 




DB 


018h,018h,07eh, OcOh, OcOh, 07eh,018h,018h 


9b 


c 




DB 


01ch , 036h , 032h , 078h , 030h , 073h , 07eh , OOOh 


9c 


c 




DB 


066h , 066h , 03ch , 07eh , 018h , 07eh , 018h , 018h 


9d 


c 




DB 


Of 8h , Occh , Occh , Of ah , 0c6h , Ocf h , 0c6h , 0c7h 


9e 


c 




DB 


OOeh T 01bh, 018h , 03ch , 018h , 018h , 0d8h , 070h 


9f 


c 


#endif 


PORTUGAL 




c 


#endif 


NORDIC 




c 




DB 


OOeh , OOOh , 03ch , 006h , 03eh , 066h , 03f h , OOOh 


aO 


c 




DB 


01ch, OOOh, 038h,018h,018h,018h,03ch, OOOh 


a1 


c 




DB 


OOOh , OOeh , OOOh , 03ch , 066h , 066h , 03ch , OOOh 


a2 


c 




DB 


OOOh , OOeh , OOOh , 066h , 066h , 066h , 03f h , OOOh 


a3 


c 




DB 


OOOh , 07ch , OOOh , 07ch , 066h , 066h , 066h , OOOh 


a4 


c 


; 


DB 


07eh , OOOh , 066h , 076h , 07eh , 06eh , 066h , OOOh 


a5 


c 


#ifdef 


NORDIC 




c 




DB 


OOOh , 07eh , OOOh , 03ch , 066h , 066h , 03ch , OOOh 


a6 


c 




DB 


07eh , OOOh , 01ch , 036h , 063h , 036h , 01ch , OOOh 


a7 


c 




DB 


018h , OOOh , 018h , 030h , 060h , 066h , 03ch , OOOh 


a8 


c 




DB 


07eh , OOOh , 03ch , 006h , 03eh , 066h , 03f h , OOOh 


a9 


c 




DB 


07eh , OOOh , 03ch , 066h , 07eh , 066h , 066h , OOOh 


aa 


c 




DB 


010h , 038h , 06ch , 06ch , 038h , 034h , 058h , OOOh 


ab 


c 




DB 


OcOh , OcOh , OOOh , Of 8h , Occh , Occh , Occh , OOOh 


ac 


c 




DB 


018h,018h, OOOh, 018h,018h,018h,018h, OOOh 


ad 


c 




DB 


07ch , 018h , 030h , 098h , 070h , OOOh , OOOh , OOOh 


ae 


c 




DB 


OOOh , 0c6h , 07ch , Oc6h , 0c6h , 07ch , 0c6h , OOOh 


af 


c 


#else 


NORDIC 




c 


#ifdef 


PORTUGAL 




c 




DB 


OOOh , 07eh , OOOh , 03ch , 066h , 066h , 03ch , OOOh 


a6 


c 




DB 


07eh , OOOh , 01ch , 036h , 063h , 036h , 01ch , OOOh 


a7 


c 




DB 


018h , OOOh , 018h , 030h , 060h , 066h , 03ch , OOOh 


a8 


c 




DB 


07eh , OOOh , 03ch , 006h , 03eh , 066h , 03f h , OOOh 


a9 


c 




DB 


07eh , OOOh , 03ch , 066h , 07eh , 066h , 066h , OOOh 


aa 


c 




DB 


007h , OOOh , 063h , 063h , 063h , 063h , 03eh , OOOh 


ab 


c 




DB 


OOeh , OOOh , 03ch , 018h , 018h , 018h , 03ch , OOOh 


ac 


c 




DB 


018h,018h, OOOh, 018h,018h,018h,018h, OOOh 


ad 


c 




DB 


07ch , 018h , 030h , 098h , 070h , OOOh , OOOh , OOOh 


ae 


c 




DB 


007h , OOOh , 01ch , 036h , 063h , 036h , 01ch , OOOh 


af 


c 


#else 


PORTUGAL 




c 




DB 


03ch , 06ch , 06ch , 03eh , OOOh , 07eh , OOOh , OOOh 


a6 


c 




DB 


038h , 06ch , 06ch , 038h , OOOh , 07ch , OOOh , OOOh 


a7 


c 




DB 


018h , OOOh , 018h , 030h , 060h , 066h , 03ch , OOOh 


a8 


c 




DB 


OOOh , OOOh , OOOh , 07eh , 060h , 060h , OOOh , OOOh 


a9 


c 




DB 


OOOh , OOOh , OOOh , 07eh , 006h , 006h , OOOh , OOOh 


aa 


c 




DB 


0c3h , 0c6h , Occh , Odeh , 033h , 066h , Occh , OOf h 


ab 


c 




DB 


0c3h , 0c6h , Occh , Odbh , 037h , 06f h , Ocf h , 003h 


ac 


c 




DB 


018h,018h, OOOh, 018h,018h,018h,018h, OOOh 


ad 


c 




DB 


OOOh , 033h , 066h , Occh , 066h , 033h , OOOh , OOOh 


ae 


c 




DB 


OOOh , Occh , 066h , 033h , 066h , Occh , OOOh , OOOh 


af 


c 


#endif 


PORTUGAL 




c 


#endif 


NORDIC 




C938 22 88 22 88 22 88 C 




DB 


022h , 088h , 022h , 088h , 022h , 088h , 022h , 088h 


bO 


22 88 C 










C940 55 AA 55 AA 55 AA C 




DB 


055h , Oaah , 055h , Oaah , 055h , Oaah , 055h , Oaah 


b1 


55 AA C 










C948 DB 11 DB EE DB 11 C 




DB 


Odbh , 077h , Odbh , Oeeh , Odbh , 077h , Odbh , Oeeh 


b2 
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DB 


EE 






C 


C950 


18 


18 


18 


18 18 18 


C 




18 


18 






C 


C958 


18 


18 


18 


18 F8 18 


C 




18 


18 






C 


C960 


18 


18 


F8 


18 F8 18 


C 




18 


18 






C 


C968 


36 


36 


36 


36 F6 36 


C 




36 


36 






C 


C970 


00 


00 


00 


00 FE 36 


C 




36 


36 






C 


C978 


00 


00 


F8 


18 F8 18 


c 




18 


18 






c 


C980 


36 


36 


F6 


06 F6 36 


c 




36 


36 






c 


C988 


36 


36 


36 


36 36 36 


c 




36 


36 






c 


C990 


00 


00 


FE 


06 F6 36 


c 




36 


36 






c 


C998 


36 


36 


F6 


06 FE 00 


c 




00 


00 






c 


C9A0 


36 36 36 36 FE 00 


c 




00 


00 






c 


C9A8 


18 


"18 


F8 


18 F8 00 


c 




00 


00 






c 


C9B0 


00 


00 


00 


00 F8 18 


c 




18 


18 






c 


C9B8 


18 


18 


18 


18 1F 00 


c 




00 


00 






c 


C9C0 


18 


18 


18 


18 FF 00 


c 




00 


00 






c 


C9C8 


00 


00 


00 


00 FF 18 


c 




18 


18 






c 


C9D0 


18 


18 


18 


18 1F 18 


c 




18 


18 






c 


C9D8 


00 


00 


00 


00 FF 00 


c 




00 


00 






c 


G9E0 


18 


18 


18 


18 FF 18 


c 




18 


18 






c 


C9E8 


18 


18 


1F 


18 1F 18 


c 




18 


18 






c 


C9F0 


36 


36 


36 


36 37 36 


c 




36 


36 






c 


C9F8 


36 


36 


37 


30 3F 00 


c 




00 


00 






c 


CAOO 


00 


00 


3F 


30 37 36 


c 




36 


36 






c 


CA08 


36 


36 


F7 


00 FF 00 


c 




00 


00 






c 


CA10 


00 


00 


FF 


00 F7 36 


c 




36 


36 






c 


CA18 


36 


36 


37 


30 37 36 


c 




36 


36 






c 


CA20 


00 


00 


FF 


00 FF 00 


c 




00 


00 






c 



DB 018h,018h,018h,018h,018h,018h,018h,018h 

DB 018h,018h,018h,018h,0f8h,018h,018h,018h 

DB 018h,018h,0f8h,018h,0f8h,018h,018h,018h 

DB 036h , 036h , 036h , 036h , Of 6h , 036h , 036h , 036h 

DB OOOh , OOOh , OOOh , OOOh , Of eh , 036h , 036h , 036h 

DB OOOh, OOOh, 0f8h,018h,0f8h,018h,018h,018h 

DB 036h , 036h , Of 6h , 006h , Of 6h , 036h , 036h , 036h 

DB 036h , 036h , 036h , 036h , 036h , 036h , 036h , 036h 

DB OOOh , OOOh , Of eh , 006h , Of 6h , 036h , 036h , 036h 

DB 036h , 036h , Of 6h , 006h , Of eh , OOOh , OOOh , OOOh 

DB 036h , 036h , 036h , 036h , Of eh , OOOh , OOOh , OOOh 

DB 018h,018h,0f8h,018h,0f8h, OOOh, OOOh, OOOh 

DB OOOh , OOOh , OOOh , OOOh , Of 8h , 018h , 018h , 018h 

DB 018h,018h,018h,018h,01fh, OOOh, OOOh, OOOh 

DB 018h,018h,018h,018h, Of fh, OOOh, OOOh, OOOh 

DB OOOh, OOOh, OOOh, OOOh, Of fh,018h,018h,018h 

DB 018h,018h,018h,018h,01fh,018h,018h,018h 

DB OOOh , OOOh , OOOh , OOOh , Of f h , OOOh , OOOh , OOOh 

DB 018h,018h,018h,018h,0ffh,018h,018h,018h 

DB 018h,018h,01fh,018h,01fh,018h,018h,018h 

DB 036h , 036h , 036h , 036h , 037h , 036h , 036h , 036h 

DB 036h , 036h , 037h , 030h , 03f h , OOOh , OOOh , OOOh 

DB OOOh , OOOh , 03f h , 030h , 037h , 036h , 036h , 036h 

DB 036h , 036h , Of 7h , OOOh , Of f h , OOOh , OOOh , OOOh 

DB OOOh , OOOh , Of f h , OOOh , Of 7h , 036h , 036h , 036h 

DB 036h , 036h , 037h , 030h , 037h , 036h , 036h , 036h 

DB OOOh , OOOh , Of f h , OOOh , Of f h , OOOh , OOOh , OOOh 



b3 
b4 
b5 
b6 
b7 
b8 
b9 
ba 
bb 
be 
bd 
be 
bf 
cO 
c1 
c2 
c3 
c4 
c5 
c6 
c7 
c8 
c9 
ca 
cb 
cc 
cd 
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CA28 


36 


36 


F7 


00 F7 36 


C 




36 


36 






C 


CA30 


18 


18 


FF 


00 FF 00 


C 




00 


00 






C 


CA38 


36 


36 


36 


36 FF 00 


C 




00 


00 






C 


CA40 


00 


00 


FF 


00 FF 18 


C 




18 


18 






C 


CA48 


00 


00 


00 


00 FF 36 


C 




36 36 






C 


CA50 


36 


36 


36 


36 3F 00 


C 




00 


00 






C 


CA58 


18 


18 


1F 


18 1F 00 


C 




00 


00 






C 


CA60 


00 


00 


1F 


18 1F 18 


C 




18 


18 






C 


CA68 


00 


00 


00 


00 3F 36 


C 




36 


36 






C 


CA70 


36 


36 


36 


36 FF 36 


C 




36 


36 






C 


CA78 


18 


18 


FF 


18 FF 18 


C 




18 


18 






C 


CA80 


18 


18 


18 


18 F8 00 


C 




00 


00 






C 


CA88 


00 


00 


00 


00 1F 18 


c 




18 


18 






c 


CA90 


FF 


FF 


FF 


FF FF FF 


c 




FF 


FF 






c 


CA98 


00 


00 


00 


00 FF FF 


c 




FF 


FF 






c 


CAAO 


FO 


FO 


FO 


FO FO FO 


c 




FO 


FO 






c 


CAA8 


OF 


OF 


OF 


OF OF OF 


c 




OF 


OF 






c 


CABO 


FF 


FF 


FF 


FF 00 00 


c 




00 


00 






c 


CAB8 


00 


00 


3B 6E 64 6E 


c 




3B 00 






c 


CACO 


00 


3C 


66 


7C 66 7C 


c 




60 


60 






c 


CAC8 


00 


7E 


66 


60 60 60 


c 




60 


00 






c 


CADO 


00 


7F 


36 


36 36 36 


c 




36 


00 






c 


CAD8 


7E 


66 


30 


18 30 66 


c 




7E 


00 






c 


CAEO 


00 


00 


3F 


6C 6C 6C 


c 




38 


00 






c 


CAE8 


00 


33 


33 


33 33 3E 


c 




30 


60 






c 


CAFO 


00 3B 6E OC OC OC 


c 




OC 


00 






c 


CAF8 


7E 


18 


3C 


66 66 3C 


c 




18 


7E 






c 


CBOO 


1C 


36 63 


7F 63 36 


c 



DB 036h , 036h , Of 7h , OOOh , Of 7h , 036h , 036h , 036h 

DB 018h ? 018h, Of fh, OOOh, Of fh, OOOh, OOOh, OOOh 

DB 036h , 036h , 036h , 036h , Of f h , OOOh , OOOh , OOOh 

DB OOOh, OOOh, Of fh, OOOh, Of fh,018h,018h,018h 

DB OOOh , OOOh , OOOh , OOOh , Of f h , 036h , 036h , 036h 

DB 036h , 036h , 036h , 036h , 03f h , OOOh , OOOh , OOOh 

DB 018h,018h,01fh,018h,01fh, OOOh, OOOh, OOOh 

DB OOOh, OOOh, 01fh,018h,01fh,018h,018h,018h 

DB OOOh , OOOh , OOOh , OOOh , 03f h , 036h , 036h , 036h 

DB 036h , 036h , 036h , 036h , Of f h , 036h , 036h , 036h 

DB 018h,018h,0ffh,018h,0ffh,018h,018h,018h 

DB 018h , 018h , 018h , 018h , Of 8h , OOOh , OOOh , OOOh 

DB OOOh , OOOh , OOOh , OOOh , 01f h , 018h , 018h , 018h 

DB Offh,0ffh,0ffh,0ffh,0ffh,0ffh,0ffh,0ffh 

DB OOOh, OOOh, OOOh, OOOh, Of fh, Of fh, Of fh, Of fh 

DB Of Oh, Of Oh, Of Oh, Of Oh, Of Oh, Of Oh, Of Oh, Of Oh 

DB 00fh,00fh,00fh,00fh,00fh,00fh,00fh,00fh 

DB Of fh, Of fh, Of fh, Of fh, OOOh, OOOh, OOOh, OOOh 

DB OOOh , OOOh , 03bh , 06eh , 064h , 06eh , 03bh , OOOh 

DB OOOh , 03ch , 066h , 07ch , 066h , 07ch , 060h , 060h 

DB OOOh , 07eh , 066h , 060h , 060h , 060h , 060h , OOOh 

DB OOOh , 07f h , 036h , 036h , 036h , 036h , 036h , OOOh 

DB 07eh , 066h , 030h , 018h , 030h , 066h , 07eh , OOOh 

DB OOOh , OOOh , 03f h , 06ch , 06ch , 06ch , 038h , OOOh 

DB OOOh , 033h , 033h , 033h , 033h , 03eh , 030h , 060h 

DB OOOh , 03bh , 06eh , OOch , OOch , OOch , OOch , OOOh 

DB 07eh , 018h , 03ch , 066h , 066h , 03ch , 018h , 07eh 

DB 01ch , 036h , 063h , 07f h , 063h , 036h , 01ch , OOOh 



ce 
cf 
dO 
d1 
d2 
d3 
d4 
d5 
d6 
d7 
d8 
d9 
da 
db 
dc 
dd 
de 
df 
eO 
e1 
e2 
e3 
e4 
e5 
e6 
e7 
e8 
e9 
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1C 00 
CB08 1C 36 63 63 36 36 

11 00 
CB10 0E 18 0C 3E 66 66 

3C 00 
CB18 00 00 IE DB DB 7E 

00 00 
CB20 06 0C 7E DB DB 7E 

60 CO 
CB28 1C 60 CO FC CO 60 

1C 00 
CB30 3C 66 66 66 66 66 

66 00 
CB38 00 7E 00 7E 00 7E 

00 00 
CB40 18 18 7E 18 18 00 

7E 00 
CB48 30 18 OC 18 30 00 

7E 00 
CB50 OC 18 30 18 OC 00 

7E 00 
CB58 OE 1B 1B 18 18 18 

18 18 
CB60 18 18 18 18 18 D8 

D8 70 
CB68 18 18 00 7E 00 18 

18 00 
CB70 00 76 DC 00 76 DC 

00 00 
CB78 38 6C 6C 38 00 00 

00 00 
CB80 00 00 00 18 18 00 

00 00 
CB88 00 00 00 00 18 00 

00 00 
CB90 OF OC OC OC EC 6C 

3C 1C 
CB98 78 6C 6C 6C 6C 00 

00 00 
CBAO 70 18 30 60 78 00 

00 00 
CBA8 00 00 3C 3C 3C 3C 

00 00 
CBBO 00 00 00 00 00 00 

00 00 



CBB8 
CBB8 



C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



DB 01ch , 036h , 063h , 063h , 036h , 036h , 077h , OOOh 

DB OOeh , 018h , OOch , 03eh , 066h , 066h , 03ch , OOOh 

DB OOOh , OOOh , 07eh , Odbh , Odbh , 07eh , OOOh 7 OOOh 

DB 006h , OOch , 07eh , Odbh , Odbh , 07eh , 060h , OcOh 

DB 01ch , 060h , OcOh , Of ch , OcOh , 060h , 01ch , OOOh 

DB 03ch , 066h , 066h , 066h , 066h , 066h , 066h , OOOh 

DB OOOh , 07eh , OOOh , 07eh , OOOh , 07eh , OOOh , OOOh 

DB 018h,018h,07eh,018h,018h, OOOh, 07eh, OOOh 

DB 030h , 018h , OOch , 018h , 030h , OOOh , 07eh , OOOh 

DB OOch , 018h , 030h , 018h , OOch , OOOh , 07eh , OOOh 

DB 00eh,01bh,01bh,018h,018h,018h,018h,018h 

DB 018h , 018h , 018h , 018h , 018h , 0d8h , 0d8h , 070h 

DB 018h , 018h , OOOh , 07eh , OOOh , 018h , 018h , OOOh 

DB OOOh , 076h , Odch , OOOh , 076h , Odch , OOOh , OOOh 

DB 038h , 06ch , 06ch , 038h , OOOh , OOOh , OOOh , OOOh 

DB OOOh , OOOh , OOOh , 018h , 018h , OOOh , OOOh , OOOh 

DB OOOh , OOOh , OOOh , OOOh , 018h , OOOh , OOOh , OOOh 

DB OOf h , OOch , OOch , OOch , Oech , 06ch , 03ch , 01ch 

DB 078h , 06ch , 06ch , 06ch , 06ch , OOOh , OOOh , OOOh 

DB 070h , 018h , 030h , 060h , 078h , OOOh , OOOh , OOOh 

DB OOOh , OOOh , 03ch , 03ch , 03ch , 03ch , OOOh , OOOh 

DB OOOh , OOOh , OOOh , OOOh , OOOh , OOOh , OOOh , OOOh 

; End of font matrix 

fonthi8 endp 

code ends 
include kbdata . asm 



eb 
ec 
ed 
ee 
ef 
fO 
f1 
f2 
f3 
f4 
f5 
f6 
f7 
f8 
f9 
fa 
fb 
fc 
fd 
fe 
ff 



Filename: kb.data: USA-ASCII 

This module includes the keyboard scan code translation data 
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CBB8 



CBB8 



= 00C0 
= 00C1 
= 00C2 
= 00C3 
= 00C4 
= 00C5 
= 00C6 
= 00C7 

= 00C8 
= 00C9 
= OOCA 
= OOCB 
= OOCC 
= OOCD 

= OOCE 
= OOCF 
= 00D0 
= 00D1 
= 00D2 
= 00D3 
= 00D4 
= 00D5 
= 00D6 
= 00D7 

= 00D8 



CBB8 

CBB8 00 

CBB9 00 

CBBA FF 

CBBB C3 

CBBC FE 

CBBD OF 

CBBE EO 



for different keyboards. 



code segment public 'ROM' 

assume cs:Code, ds : nothing, es : nothing, ss : nothing 



kb datal 



proc 



kbins 
kbcap 
kbnum 
kbscr 
kbalt 
kbctl 
kblsh 
kbrsh 

kbres 
kbbrk 
pause 
kbprt 
kbnul 
kNONE 

kdec9 
kdec8 
kdec7 
kdec6 
kdec5 
kdec4 
kdec3 
kdec2 
kded 
kdecO 



special cases 



equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 

equ 
equ 
equ 
equ 
equ 
equ 

equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 



kdblO equ 



OCOh 
0C1h 
0C2h 
0C3h 
0C4h 
0C5h 
0C6h 
0C7h 

0C8h 
0C9h 
OCAh 
OCBh 
OCCh 
OCDh 

OCEh 
OCFh 
ODOh 
0D1h 
0D2h 
0D3h 
0D4h 
0D5h 
0D6h 
0D7h 

0D8h 



kb insert lock 
kb caps lock 
kb num lock 
kb scrollJLock 
kb alt lock 
kb controlJLock 
kb_l_shift_lock 
kb r shiftJLock 

kb reset 

kb break 

kb_pause 

kb print screen 

kb_null 

kb none 



kb_alt 
kb_alt 
kb_alt 
kb_alt 
kb_alt 
kbjlt 
kb_alt 
kb_alt 
kb_alt 
kb alt 



dec_9 
dec_8 
dec_7 
dec_6 
dec_5 
dec_4 
dec_3 
dec_2 
dec_1 
dec 



kb double zero 



7 CapLk Bytes 



kb cap flags label byte 



(min case) 



(mid case) 



(max case) 



db 
db 
db 
db 
db 
db 
db 



00000000b 
00000000b 
11111111b 
11000011b 
11111110b 
00001111b 
11100000b 



scancode 00 (OOh) - 07 (07h) 

scancode 08 (08h) - 15 (OFh) 

scancode 16 (10h) - 23 (17h) 

scancode 24 (18h) - 31 (1Fh) 

scancode 32 (20h) - 39 (27h) 

scancode 40 (28h) - 47 (2Fh) 

scancode 48 (30h) - 55 (37h) 



ESC 
'7' 

'q' 
'o' 
'd' 



to '6' 
to HT 
to 'i' 
to 'a' & ' 
to '1' & ' 
to '' to 'z' to ' 
to 'm' to ' , ' to 



& 'p' 
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CBBF 



CBBF 


1B1B 


CBC1 


1B1B 


CBC3 


1B1B 


CBC5 


CDCD 


CBC7 


3131 


CBC9 


2121 


CBCB 


CDCD 


CBCD 


7800 


CBCF 


3232 


CBD1 


2240 


CBD3 


CDCC 


CBD5 


7900 


CBD7 


3333 


CBD9 


2323 


CBDB 


CDCD 


CBDD 


7A00 


CBDF 


3434 


CBE1 


2424 


CBE3 


CDCD 


CBE5 


7B00 


CBE7 


3535 


CBE9 


2525 


CBEB 


CDCD 


CBED 


7C00 


CBEF 


3636 


CBF1 


265E 


CBF3 


CD1E 


CBF5 


7D00 


CBF7 


3737 


CBF9 


2726 


CBFB 


CDCD 


CBFD 


7E00 


CBFF 


3838 


CC01 


282A 


CC03 


CDCD 


CC05 


7F00 


CC07 


3939 


CC09 


2928 


CCOB 


CDCD 


CCOD 


8000 


CCOF 


3030 


CC11 


5F29 


CC13 


1FCD 


CC15 


8100 


CC17 


2D2D 


CC19 


3D5F 


CC1B 


CD1F 



c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



Alphabetic (Migratory) 



I AT&T I Other I 
I KB I KBs I 



kb data table label byte 



dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 



(1Bh) 
(1Bh) 
(1Bh) 
kNONE 
(31h) 
(21h) 
kNONE 

(32h) 
(22h) 
kNONE 

(33h) 
(23h) 
kNONE 

(34h) 
(24h) 
kNONE 

(35h) 
(25h) 
kNONE : 

(36h) : 
(26h) : 
kNONE : 

(37h) : 
(27h) : 
kNONE : 

(38h) : 
(28h) ; 
kNONE ; 

(39h) ' 
(29h) 5 
kNONE > 

(30h) * 
(5Fh) * 
(1Fh) < 

(2Dh) * 
(3Dh) " 
kNONE * 



: 100h -• 
: 100h ■* 
100h -» 
100h -> 
100h ■» 
100h + 
100h + 
7800h 
100h + 
100h + 
100h + 
7900h 
100h + 
100h + 
100h + 
7A00h 
100h + 
100h + 
100h + 
7B00h 
100h + 
100h + 
100h + 
7C00h 
100h + 
100h + 
100h + 
7D00h 
100h + 
100h + 
100h + 
7E00h 
100h + 
100h + 
100h + 
7F00h 
100h + 
100h + 
100h + 
8000h 
100h + 
100h + 
100h + 
8100h 
100h + 
100h + 
100h + 



(1Bh) 
(1Bh) 
(1Bh) 
kNONE 
(31h) 
(21h) 
kNONE 

(32h) 
(40h) 
kbnul 

(33h) 
(23h) 
kNONE 

(34h) 
(24h) 
kNONE 

(35h) 
(25h) 
kNONE 

(36h) 
(5Eh) 
(1Eh) 

(37h) 
(26h) 
kNONE 

(38h) 
(2Ah) 
kNONE 

(39h) 
(28h) 
kNONE 

(30h) 
(29h) 
kNONE 

(2Dh) 
(5Fh) 
(1Fh) 



01 01h 



02 02h 



03 03h 



04 04h 



05 05h 



06 06h 



07 07h 



08 08h 



09 09h 



10 OAh 



11 OBh 



12 OCh 



ESC 


ESC 


(BASE) 


ESC 


ESC 


(SHIFT) 


ESC 


ESC 


(CTL) 


None 


None 


(ALT) 


1 
i 


1 
i 




None 


None 




X120 






2 


2 




n 


@ 




None 


NUL=X03r@) 


X121 






3 


3 




# 


# 




None 


None 




X122 






4 


4 




$ 


$ 




None 


None 




X123 






5 


5 




% 


% 




None 


None 




X124 






6 


6 




& 


^ 




None 


RS p 


1 


X125 






7 


7 
& 




None 


None 




X126 






8 


8 




( 


* 




None 


None 




X127 






9 


9 




) 


C 




None 


None 




X128 
















) 




us p 


) None 




X129 







None 



US r ) 
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CC1D 


8200 


CC1F 


5E3D 


CC21 


7E2B 


CC23 


1ECD 


CC25 


8300 


CC27 


0808 


CC29 


0808 


CC2B 


7F7F 


CC2D 


CDCD 


CC2F 


0909 


CC31 


0F00 


CC33 


CDCD 


CC35 


CDCD 


CC37 


7171 


CC39 


5151 


CC3B 


1111 


CC3D 


1000 


CC3F 


7777 


CC41 


5757 


CC43 


1717 


CC45 


1100 


CC47 


6565 


CC49 


4545 


CC4B 


0505 


CC4D 


1200 


CC4F 


7272 


CC51 


5252 


CC53 


1212 


CC55 


1300 


CC57 


7474 


CC59 


5454 


CC5B 


1414 


CC5D 


1400 


CC5F 


7979 


CC61 


5959 


CC63 


1919 


CC65 


1500 


CC67 


7575 


CC69 


5555 


CC6B 


1515 


CC6D 


1600 


CC6F 


6969 


CC71 


4949 


CC73 


0909 


CC75 


1700 


CC77 


6F6F 


CC79 


4F4F 


CC7B 


0F0F 


CC7D 


1800 


CC7F 


7070 


CC81 


5050 


CC83 


1010 


CC85 


1900 


CC87 


405B 


CC89 


607B 



c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 



(5Eh) : 
(7Eh) 
(1Eh) : 

(08h) 
(08h) 
(7Fh) 
kNONE 
(09h) 

kNONE 
kNONE 
(71h) 
(51h) 
(11h) 

(77h) 
(57h) 
(17h) 

(65h) 
(45h) 
(05h) 

(72h) 
(52h) 
(12h) 

(74h) 
(54h) 
(14h) 

(79h) 
(59h) 
(19h) 

(75h) 
(55h) 
(15h) 

(69h) 
(49h) 
(09h) 

(6Fh) 
(4Fh) 
(OFh) 

(70h) 
(50h) 
(10h) 

(40h) 
(60h) 



8200h 
100h + 
100h + 
100h + 
8300h 
100h + 
100h + 
100h + 
100h + 
100h + 
OFOOh 
100h + 
100h + 
100h + 
100h + 
100h + 
1000h 
100h + 
100h + 
100h + 
1100h 
100h + 
100h + 
100h + 
1200h 
100h + 
100h + 
100h + 
1300h 
100h + 
100h + 
100h + 
1400h 
100h + 
100h + 
100h + 
1500h 
100h + 
100h + 
100h + 
1600h 
100h + 
100h + 
100h + 
1700h 
lOOh + 
100h + 
100h + 
1800h 
100h + 
: 100h + 
: 100h + 
1900h 
: 100h 4 
: 100h ^ 



(3Dh) 
(2Bh) 
kNONE 

(08h) 
(08h) 
(7Fh) 
kNONE 
(09h) 

kNONE 

kNONE 

71h) 

51h) 

11h) 

77h) 
57h) 
17h) 

65h) 
45h) 
05h) 

72h) 
52h) 
12h) 

74h) 
54h) 
14h) 

79h) 
59h) 
19h) 

75h) 
55h) 
15h) 

69h) 
49h) 
09h) 

6Fh) 
4Fh) 
OFh) 

70h) 
50h) 
10h) 

5Bh) 
7Bh) 



X130 



13 ODh 



14 OEh 



15 OFh 



16 10h 



17 11h 



18 12h 



19 13h 



20 14h 



21 15h 



22 16h 



23 17h 



24 18h 



25 19h 



26 1Ah 



rs r) 


None 


X131 




BS 


BS 


BS 


BS 


DEL 


DEL 


None 


None 


HT 


HT 


RHT=X15 




None 


None 


None 


None 


q 


q 


Q 


Q 


DC1("Q) 


DC1PQ) 


X16 




w 


w 


W 


W 


ETB(^W) ETBC^W) 


X17 




e 


e 


E 


E 


ENQPE) ENQ(^E) 


X18 




r 


r 


R 


R 


DC2("R) DC2("R) 


X19 




t 


t 


T 


T 


DC4("T) DC4("T) 


X20 




y 


y 


Y 


Y 


EM H) 


em n) 


X21 




u 


u 


U 


U 


NAK^U) 


NAK("U) 


X22 




i 


i 


I 


I 


HT (-1) 


HT (-1) 


X23 
















SI (-0) 


SI (-0) 


X24 




P 


P 


P 


P 


DLE(T) DLEpP) 


X25 
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CC8B 


CC1B 


CC8D 


CDCD 


CC8F 


5B5D 


CC91 


7B7D 


CC93 


1B1D 


CC95 


CDCD 


CC97 


ODOD 


CC99 


ODOD 


CC9B 


OAOA 


CC9D 


CDCD 


CC9F 


C5C5 


CCA1 


C5C5 


CCA3 


C5C5 


CCA5 


C5C5 


CCA7 


6161 


CCA9 


4141 


CCAB 


0101 


CCAD 


1E00 


CCAF 


7373 


CCB1 


5353 


CCB3 


1313 


CCB5 


1F00 


CCB7 


6464 


CCB9 


4444 


CCBB 


0404 


CCBD 


2000 


CCBF 


6666 


CCC1 


4646 


CCC3 


0606 


CCC5 


2100 


CCC7 


6767 


CCC9 


4747 


CCCB 


0707 


CCCD 


2200 


CCCF 


6868 


CCD1 


4848 


CCD3 


0808 


CCD5 


2300 


CCD7 


6A6A 


CCD9 


4A4A 


CCDB 


OAOA 


CCDD 


2400 


CCDF 


6B6B 


CCE1 


4B4B 


CCE3 


OBOB 


CCE5 


2500 


CCE7 


6C6C 


CCE9 


4C4C 


CCEB 


OCOC 


CCED 


2600 


CCEF 


3B3B 


CCF1 


2B3A 


CCF3 


CDCD 


CCF5 


CDCD 


CCF7 


3A27 



C 


dw 


kbnul 


* 100h + (1Bh) 


C 


dw 


kNONE 


* 100h + kNONE 


C 


dw 


(5Bh) 


* 100h + (5Dh) 


C 


dw 


(7Bh) 


* 100h + (7Dh) 


C 


dw 


(1Bh) 


* 100h + (1Dh) 


C 


dw 


kNONE 


* 100h + kNONE 


C 


dw 


(ODh) 


* 100h + (ODh) 


c 


dw 


(ODh) 


* 100h + (ODh) 


c 


dw 


(OAh) 


* 100h + (OAh) 


c 


dw 


kNONE 


* 100h + kNONE 


c 


dw 


kbctl 


* 100h + kbctl 


c 


dw 


kbctl 


* 100h + kbctl 


c 


dw 


kbctl 


* 100h + kbctl 


c 


dw 


kbctl 


* 100h + kbctl 


c 


dw 


(61h) 


* 100h + (61h) 


c 


dw 


(41h) 


* 100h + (41h) 


c 


dw 


(01h) 


* 100h + (01h) 


c 


dw 




1E00h 


c 


dw 


(73h) 


* 100h + (73h) 


c 


dw 


(53h) 


* 100h + (53h) 


c 


dw 


(13h) 


* 100h + (13h) 


c 


dw 




1F00h 


c 


dw 


(64h) 


* 100h + (64h) 


c 


dw 


(44h) 


* 100h + (44h) 


c 


dw 


(04h) 


* 100h + (04h) 


c 


dw 




2000h 


c 


dw 


(66h) 


* 100h + (66h) 


c 


dw 


(46h) 


* 100h + (46h) 


c 


dw 


(06h) 


* 100h + (06h) 


c 


dw 




2100h 


c 


dw 


(67h) 


* 100h + (67h) 


c 


dw 


(47h) 


* 100h + (47h) 


c 


dw 


(07h) 


* 100h + (07h) 


c 


dw 




2200h 


c 


dw 


(68h) 


* 100h + (68h) 


c 


dw 


(48h) 


* 100h + (48h) 


c 


dw 


(08h) 


* 100h + (08h) 


c 


dw 




2300h 


c 


dw 


(6Ah) 


* 100h + (6Ah) 


c 


dw 


(4Ah) 


* 100h + (4Ah) 


c 


dw 


(OAh) 


* 100h + (OAh) 


c 


dw 




2400h 


c 


dw 


(6Bh) 


* 100h + (6Bh) 


c 


dw 


(4Bh) 


* 100h + (4Bh) 


c 


dw 


(OBh) - 


* 100h + (OBh) 


c 


dw 




2500h 


c 


dw 


(6Ch) 5 


" 100h + (6Ch) 


c 


dw 


(4Ch) ' 


* 100h + (4Ch) 


c 


dw 


(OCh) " 


18 100h + (OCh) 


c 


dw 




2600h 


c 


dw 


(3Bh) * 


* 100h + (3Bh) 


c 


dw 


(2Bh) " 


c 100h + (3Ah) 


c 


dw 


kNONE " 


< 100h + kNONE 


c 


dw 


kNONE * 


' 100h + kNONE 


c 


dw 


(3Ah) * 


c 100h + (27h) 



27 1Bh 



28 1Ch 



29 1Dh 



30 1Eh 



31 1Fh 



32 20h 



33 21h 



34 22h 



35 23h 



36 24h 



37 25h 



38 26h 



39 27h 



40 28h 



NUL=X03( /N @) ESCH) 
None None 

r i 


L J 
{ } 

Escrt) gs r]) 

None None 


CR 


CR 


CR 


CR 


LF 


LF 


None 


None 


Ctrl 


Ctrl 


Ctrl 


Ctrl 


Ctrl 


Ctrl 


Ctrl 


Ctrl 


a 


a 


A 


A 


S0H("A) SOH(^A) 
X30 


s 


s 


S 


S 


DC3("S) DC3("S) 
X31 


d 


d 


D 


D 


E0T("D) E0T("D) 
X32 


f 


f 


F 


F 


ACK(T) 
X33 


ACK(T) 


g 

G 


g 

G 


BEL(^G) BEL(^G) 
X34 


h 


h 


H 


H 


BS ("H) 
X35 


BS ("H) 


J 
J 


J 
J 


LF (-J) 
X36 


LF (-J) 


k 


k 


K 


K 


VT (-K) 
X37 


VT (-K) 


1 


1 


L 


L 


FF PL) 
X38 


FF PL) 


+ 




None 


None 


None 


None 
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CCF9 


2A22 


CCFB 


CDCD 


CCFD 


CDCD 


CCFF 


5D60 


CD01 


7D7E 


CD03 


1DCD 


CD05 


CDCD 


CD07 


C6C6 


CD09 


C6C6 


CDOB 


C6C6 


CDOD 


C6C6 


CDOF 


5C5C 


CD11 


7C7C 


CD13 


1C1C 


CD15 


CDCD 


CD17 


7A7A 


CD19 


5A5A 


CD1B 


1A1A 


CD1D 


2C00 


CD1F 


7878 


CD21 


5858 


CD23 


1818 


CD25 


2D00 


CD27 


6363 


CD29 


4343 


CD2B 


0303 


CD2D 


2E00 


CD2F 


7676 


CD31 


5656 


CD33 


1616 


CD35 


2F00 


CD37 


6262 


CD39 


4242 


CD3B 


0202 


CD3D 


3000 


CD3F 


6E6E 


CD41 


4E4E 


CD43 


OEOE 


CD45 


3100 


CD47 


6D6D 


CD49 


4D4D 


CD4B 


ODOD 


CD4D 


3200 


CD4F 


2C2C 


CD51 


3C3C 


CD53 


CDCD 


CD55 


CDCD 


CD57 


2E2E 


CD59 


3E3E 


CD5B 


CDCD 


CD5D 


CDCD 


CD5F 


2F2F 


CD61 


3F3F 


CD63 


CDCD 


CD65 


CDCD 



C 


dw 


(2Ah) 


* 


100h + 


(22h) 


C 


dw 


kNONE 


* 


100h + 


kNONE 


C 


dw 


kNONE 


* 


100h + 


kNONE 


C 


dw 


(5Dh) 


* 


100h + 


(60h) 


C 


dw 


(7Dh) 


* 


100h + 


(7Eh) 


C 


dw 


(1Dh) 


* 


100h + 


kNONE 


C 


dw 


kNONE 


* 


100h + 


kNONE 


C 


dw 


kblsh 


* 


100h + 


kblsh 


C 


dw 


kblsh 


* 


100h + 


kblsh 


C 


dw 


kblsh 


* 


100h + 


kblsh 


C 


dw 


kblsh 


* 


100h + 


kblsh 


C 


dw 


(5Ch) 


* 


100h + 


(5Ch) 


C 


dw 


(7Ch) 


* 


100h + 


(7Ch) 


C 


dw 


(1Ch) 


* 


100h + 


(1Ch) 


C 


dw 


kNONE 


* 


100h + 


kNONE 


C 


dw 


(7Ah) 


* 


100h + 


(7Ah) 


C 


dw 


(5Ah) 


* 


100h + 


(5Ah) 


C 


dw 


(1Ah) 


* 


100h + 


(1Ah) 


C 


dw 






2C00h 




C 


dw 


(78h) 


* 


100h + 


(78h) 


c 


dw 


(58h) 


* 


100h + 


(58h) 


c 


dw 


(18h) 


* 


100h + 


(18h) 


c 


dw 






2D00h 




c 


dw 


(63h) 


* 


100h + 


(63h) 


c 


dw 


(43h) 


* 


100h + 


(43h) 


c 


dw 


(03h) 


* 


100h + 


(03h) 


c 


dw 






2E00h 




c 


dw 


(76h) 


* 


100h + 


(76h) 


c 


dw 


(56h) 


* 


100h + 


(56h) 


c 


dw 


(16h) 


* 


100h + 


(16h) 


c 


dw 






2F00h 




c 


dw 


(62h) 


* 


100h + 


(62h) 


c 


dw 


(42h) 


* 


100h + 


(42h) 


c 


dw 


(02h) 


* 


100h + 


(02h) 


c 


dw 






3000h 




c 


dw 


(6Eh) 


* 


100h + 


(6Eh) 


c 


dw 


(4Eh) 


* 


100h + 


(4Eh) 


c 


dw 


(OEh) 


* 


100h + 


(OEh) 


c 


dw 






3100h 




c 


dw 


(6Dh) 


* 


100h + 


(6Dh) 


c 


dw 


(4Dh) 


* 


100h + 


(4Dh) 


c 


dw 


(ODh) 


* 


100h + 


(ODh) 


c 


dw 






3200h 




c 


dw 


(2Ch) 


* 


100h + 


(2Ch) 


c 


dw 


(3Ch) 


* 


100h + 


(3Ch) 


c 


dw 


kNONE 


* 


100h + 


kNONE 


c 


dw 


kNONE 


* 


100h + 


kNONE 


c 


dw 


(2Eh) 


* 


100h + 


(2Eh) 


c 


dw 


(3Eh) 


* 


100h + 


(3Eh) 


c 


dw 


kNONE 


* 


100h + 


kNONE 


c 


dw 


kNONE 


* 


100h + 


kNONE 


c 


dw 


(2Fh) 


* 


100h + 


(2Fh) 


c 


dw 


(3Fh) 


* 


100h + 


(3Fh) 


c 


dw 


kNONE 


* 


100h + 


kNONE 


c 


dw 


kNONE 


* 


100h + 


kNONE 



41 29h 



42 2Ah 



43 2Bh 



44 2Ch 



45 2Dh 



46 2Eh 



47 2Fh 



48 30h 



49 31h 



50 32h 



51 33h 



52 34h 



53 35h 



None 


None 


None 


None 


] 
} 

gs n) 


None 


None 


None 


LShft 


LShft 


LShft 


LShft 


LShft 


LShft 


LShft 


LShft 


\ 

I 


\ 

I 


fs n 

None 


fs n 

None 


z 


z 


Z 


Z 


SUB("Z) SUB("Z) 
X44 


X 


X 


X 


X 


CAN("X) CAN(^X) 
X45 


c 


c 


C 


C 


ETX("C) ETX("C) 
X46 


V 


V 


V 


V 


SYN("V) SYN(^V) 
X47 


b 


b 


B 


B 


STX("B) STX("B) 
X48 


n 


n 


N 


N 


SO ("N) 
X49 


SO pN) 


m 


m 


M 


M 


CR ("M) 
X50 


CR ("M) 


< 


< 


None 


None 


None 


None 


> 


> 


None 


None 


None 


None 


/ 


/ 


? 


? 


None 


None 


None 


None 
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CD67 


C7C7 


CD69 


C7C7 


CD6B 


C7C7 


CD6D 


C7C7 


CD6F 


2A2A 


CD71 


CBCB 


CD73 


7200 


CD75 


CDCD 


CD77 


C4C4 


CD79 


C4C4 


CD7B 


C4C4 


CD7D 


C4C4 


CD7F 


2020 


CD81 


2020 


CD83 


2020 


CD85 


2020 


CD87 


C1C1 


CD89 


C1C1 


CD8B 


C1C1 


CD8D 


C1C1 


CD8F 


3B00 


CD91 


5400 


CD93 


5E00 


CD95 


6800 


CD97 


3C00 


CD99 


5500 


CD9B 


5F00 


CD9D 


6900 


CD9F 


3D00 


CDA1 


5600 


CDA3 


6000 


CDA5 


6A00 


CDA7 


3E00 


CDA9 


5700 


CDAB 


6100 


CDAD 


6B00 


CDAF 


3F00 


CDB1 


5800 


CDB3 


6200 


CDB5 


6C00 


CDB7 


4000 


CDB9 


5900 


CDBB 


6300 


CDBD 


6D00 


CDBF 


4100 


CDC1 


5A00 


CDC3 


6400 


CDC5 


6E00 


CDC7 


4200 



c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



Alphabetic (Non-Migratory) 



AT&T 
KB 



I Other I 
I KBs I 



dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 



kbrsh 
kbrsh 
kbrsh 
kbrsh 
(2Ah) 
kbprt 

kNONE 
kbalt 
kbalt 
kbalt 
kbalt 
(20h) 
(20h) 
(20h) 
(20h) 
kbcap 
kbcap 
kbcap 
kbcap 



' 100h + 

c 100h + 

c 100h + 

: 100h + 

' 100h + 

: 100h + 

7200h 

: 100h + 

: 100h + 

: 100h + 

: 100h + 

: 100h + 

: 100h + 

: 100h + 

: 100h + 

: 100h + 

: 100h + 

: 100h + 

100h + 

100h + 

3B00h 

5400h 

5E00h 

6800h 

3C00h 

5500h 

5F00h 

6900h 

3D00h 

5600h 

6000h 

6A00h 

3E00h 

5700h 

6100h 

6B00h 

3F00h 

5800h 

6200h 

6C00h 

4000h 

5900h 

6300h 

6D00h 

4100h 

5A00h 

6400h 

6E00h 

4200h 



kbrsh 
kbrsh 
kbrsh 
kbrsh 
(2Ah) 
kbprt 

kNONE 
kbalt 
kbalt 
kbalt 
kbalt 
(20h) 
(20h) 
(20h) 
(20h) 
kbcap 
kbcap 
kbcap 
kbcap 



54 36h 



55 37h 



56 38h 



57 39h 



58 3Ah 



59 3Bh 



60 3Ch 



61 3Dh 



62 3Eh 



63 3Fh 



64 40h 



65 41h 



66 42h 



RShft 


RShft 


RShft 


RShft 


RShft 


RShft 


RShft 


RShft 


* 


* 


PrtSc 


PrtSc 


X114 




None 


None 


ALT 


ALT 


ALT 


ALT 


ALT 


ALT 


ALT 


ALT 


SP 


SP 


SP 


SP 


SP 


SP 


SP 


SP 


CapLk 


CapLk 


CapLk 


CapLk 


CapLk 


CapLk 


CapLk 


CapLk 


F01=X59 




F11=X84 




F21=X94 




F31=X104 




F02=X60 




F12=X85 




F22=X95 




F32=X105 




F03=X61 




F13=X86 




F23=X96 




F33=X106 




F04=X62 




F14=X87 




F24=X97 




F34=X107 




F05=X63 




F15=X88 




F25=X98 




F35=X108 




F06=X64 




F16=X89 




F26=X99 




F36=X109 




F07=X65 




F17=X90 




F27=X100 




F37=X110 




F08=X66 
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CDC9 


5B00 


CDCB 


6500 


CDCD 


6F00 


CDCF 


4300 


CDD1 


5C00 


CDD3 


6600 


CDD5 


7000 


CDD7 


4400 


CDD9 


5D00 


CDDB 


6700 


CDDD 


7100 


CDDF 


C2C2 


CDE1 


C2C2 


CDE3 


CACA 


CDE5 


C2C2 


CDE7 


C3C3 


CDE9 


C3C3 


CDEB 


C9C9 


CDED 


C3C3 



CDEF 


4700 


CDF1 


3737 


CDF3 


7700 


CDF5 


DODO 


CDF7 


4800 


CDF9 


3838 


CDFB 


CDCD 


CDFD 


CFCF 


CDFF 


4900 


CE01 


3939 


CE03 


8400 


CE05 


CECE 


CE07 


2D2D 


CE09 


2D2D 


CEOB 


CDCD 


CEOD 


CDCD 


CEOF 


4B00 


CE11 


3434 


CE13 


7300 


CE15 


D3D3 


CE17 


CDCD 


CE19 


3535 


CE1B 


CDCD 


CE1D 


D2D2 


CE1F 


4D00 


CE21 


3636 


CE23 


7400 


CE25 


D1D1 


CE27 


2B2B 


CE29 


2B2B 



dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 



dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 



kbnum 
kbnum 
pause 
kbnum 
kbscr 
kbscr 
kbbrk 
kbscr 



5B00h 

6500h 

6F00h 

4300h 

5C00h 

6600h 

7000h 

4400h 

5D00h 

6700h 

7100h 

100h + 

100h + 

100h + 

100h + 

100h + 

100h + 

100h + 

100h + 



kbnum 
kbnum 
pause 
kbnum 
kbscr 
kbscr 
kbbrk 
kbscr 



67 43h 



68 44h 



69 45h 



70 46h 



F18=X91 




F28=X101 




F38=X111 




F09=X67 




F19=X92 




F29=X102 




F39=X112 




F10=X68 




F20=X93 




F30=X103 




F40=X113 




NumLk 


NumLk 


NumLk 


NumLk 


Pause 


Pause 


NumLk 


NumLk 


ScrLk 


ScrLk 


ScrLk 


ScrLk 


Break 


Break 


ScrLk 


ScrLk 



Numeric Keypad 



I AT&T 
I KB 



I Other I 
I KBs I 



(37h) 

kdec7 

(38h) 
kNONE 
kdec8 

(39h) 

kdec9 
(2Dh) 
(2Dh) 
kNONE 
kNONE 

(34h) 

kdec4 
kNONE 
(35h) 
kNONE 
kdec5 

(36h) 

kdec6 
(2Bh) 
(2Bh) 



4700h 
100h + 
7700h 
100h + 
4800h 
100h + 
100h + 
100h + 
4900h 
100h + 
8400h 
100h + 
100h + 
100h + 
100h + 
100h + 
4B00.h 
100h + 
7300h 
100h + 
100h + 
100h + 
100h + 
100h + 
4D00h 
100h + 
7400h 
100h + 
100h + 
100h + 



(37h) 
kdec7 

(38h) 

kNONE 
kdec8 

(39h) 

kdec9 
(2Dh) 
(2Dh) 
kNONE 
kNONE 

(34h) 

kdec4 
kNONE 
(35h) 
kNONE 
kdec5 

(36h) 

kdec6 
(2Bh) 
(2Bh) 



71 47h 



72 48h 



73 49h 



74 4Ah 



75 4Bh 



76 4Ch 



77 4Dh 



78 4Eh 



Home=X71 


7 


7 


X119 




XDec7 


XDec7 


Up =X72 


8 


8 


None 


None 


XDec8 


XDec8 


PgUp=X73 


9 


9 


X132 




XDec9 


XDec9 


None 


None 


None 


None 


Left=X75 


4 


4 


X115 




XDec4 


XDec4 


None 


None 


5 


5 


None 


None 


XDec5 


XDec5 


Rght=X77 


6 


6 


X116 




XDec6 


XDec6 
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CE2B 


CDCD 


CE2D 


CDCD 


CE2F 


4F00 


CE31 


3131 


CE33 


7500 


CE35 


D6D6 


CE37 


5000 


CE39 


3232 


CE3B 


CDCD 


CE3D 


D5D5 


CE3F 


5100 


CE41 


3333 


CE43 


7600 


CE45 


D4D4 


CE47 


COCO 


CE49 


3030 


CE4B 


CDCD 


CE4D 


D7D7 


CE4F 


5300 


CE51 


2E2E 


CE53 


C8C8 


CE55 


C8C8 



CE57 


D8D8 


CE59 


D8D8 


CE5B 


CDCD 


CE5D 


CDCD 


CE5F 


CBCB 


CE61 


CBCB 


CE63 


7200 


CE65 


CDCD 


CE67 


CACA 


CE69 


CACA 


CE6B 


CACA 


CE6D 


CACA 


CE6F 


ODOD 


CE71 


ODOD 


CE73 


OAOA 


CE75 


CDCD 


CE77 


4B00 


CE79 


7300 


CE7B 


7300 


CE7D 


7300 


CE7F 


5000 


CE81 


5000 


CE83 


5000 


CE85 


5000 


CE87 


4D00 


CE89 


7400 


CE8B 


7400 



c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 



dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 



kNONE * 
kNONE * 

(31h) * 

kded * 

(32h) * 
kNONE * 
kdec2 * 

(33h) * 

kdec3 * 
kbins * 
(30h) * 
kNONE * 
kdecO * 

(2Eh) * 
kbres * 
kbres * 



100h + 
100h + 
4F00h 
100h + 
7500h 
100h + 
5000h 
100h + 
100h + 
100h + 
5100h 
100h + 
7600h 
100h + 
100h + 
100h + 
100h + 
100h + 
5300h 
100h + 
100h + 
100h + 



kNONE 
kNONE 

(31h) 

kded 

(32h) 
kNONE 
kdec2 

(33h) 

kdec3 
kbins 
(30h) 
kNONE 
kdecO 

(2Eh) 
kbres 
kbres 



79 4Fh 



80 50h 



81 51h 



82 52h 



83 53h 



None None 
None None 
End =X79 

1 1 
X117 

XDed XDed 
Down=X80 

2 2 
None None 
XDec2 XDec2 
PgDn=X81 

3 3 
X118 

XDec3 XDec3 
INS=X82 INS=X82 

None None 
XDecO XDecO 
DEL =X83 

Reset Reset 
Reset Reset 



Function Keypad 



I AT&T I Other I 
I KB I KBs I 



kdblO 
kdblO 
kNONE 
kNONE 
kbprt 
kbprt 

kNONE 
pause 
pause 
pause 
pause 
(ODh) 
(ODh) 
(OAh) 
kNONE 



100h + 
100h + 
100h + 
100h + 
100h + 
100h + 
7200h 
100h + 
100h + 
100h + 
100h + 
100h + 
100h + 
100h + 
100h + 
100h + 
4B00h 
7300h 
7300h 
7300h 
5000h 
5000h 
5000h 
5000h 
4D00h 
7400h 
7400h 



kdblO 
kdblO 
kNONE 
kNONE 
kbprt 
kbprt 

kNONE 
pause 
pause 
pause 
pause 
(ODh) 
(ODh) 
(OAh) 
kNONE 



84 54h 



85 55h 



86 56h 



87 57h 



88 58h 



89 59h 



90 5Ah 



00 


00 


00 


00 


None 


None 


None 


None 


PrtSc 


PrtSc 


PrtSc 


PrtSc 


X114 




None 


None 


Pause 


Pause 


Pause 


Pause 


Pause 


Pause 


Pause 


Pause 


CR 


CR 


CR 


CR 


LF 


LF 


None 


None 


Left=X7^ 




Rev Wore 


= X115 


Rev Wore 


= X115 


Rev Wore 


= X115 


Down=X8C 




Down=X8C 




Down=X8C 




Down=X8C 




Rght=X77 




Adv Word 


= X116 


Adv Word 


= X116 



1-42 



ROM BIOS Listing 



ROM BIOS Listing 



CE8D 


7400 


CE8F 


4800 


CE91 


4700 


CE93 


4700 


CE95 


4700 


CE97 


C9C9 


CE99 


C9C9 


CE9B 


C9C9 


CE9D 


C9C9 


CE9F 


C9C9 


CEA1 


C9C9 


CEA3 


C9C9 


CEA5 


C9C9 


CEA7 


C2C2 


CEA9 


C2C2 


CEAB 


CACA 


CEAD 


C2C2 


CEAF 


2F2F 


CEB1 


2F2F 


CEB3 


CDCD 


CEB5 


CDCD 


CEB7 


5400 


CEB9 


5400 


CEBB 


5400 


CEBD 


5400 


CEBF 


5500 


CEC1 


5500 


CEC3 


5500 


CEC5 


5500 


CEC7 


5600 


CEC9 


5600 


CECB 


5600 


CECD 


5600 


CECF 


5700 


CED1 


5700 


CED3 


5700 


CED5 


5700 


CED7 


5800 


CED9 


5800 


CEDB 


5800 


CEDD 


5800 


CEDF 


5900 


CEE1 


5900 


CEE3 


5900 


CEE5 


5900 


CEE7 


5A00 


CEE9 


5A00 


CEEB 


5A00 


CEED 


5A00 


CEEF 


5B00 


CEF1 


5B00 


CEF3 


5B00 


CEF5 


5B00 



CEF7 



c 


dw 




7400h 




c 


dw 




4800h 




c 


dw 




4700h 




c 


dw 




4700h 




c 


dw 




4700h 




c 


dw 


kbbrk 


* 100h + 


kbbrk 


c 


dw 


kbbrk 


* 100h + 


kbbrk 


c 


dw 


kbbrk 


* 100h + 


kbbrk 


c 


dw 


kbbrk 


* 100h + 


kbbrk 


c 


dw 


kbbrk 


* 100h + 


kbbrk 


c 


dw 


kbbrk 


* 100h + 


kbbrk 


c 


dw 


kbbrk 


* 100h + 


kbbrk 


c 


dw 


kbbrk 


* 100h + 


kbbrk 


c 


dw 


kbnum 


* 100h + 


kbnum 


c 


dw 


kbnum 


* 100h + 


kbnum 


c 


dw 


pause 


* 100h + 


pause 


c 


dw 


kbnum 


* 100h + 


kbnum 


c 


dw 


(2Fh) 


* 100h + 


(2Fh) 


c 


dw 


(2Fh) 


* 100h + 


(2Fh) 


c 


dw 


kNONE 


* 100h + 


kNONE 


c 


dw 


kNONE 


* 100h + 


kNONE 


c 


dw 




5400h 




c 


dw 




5400h 




c 


dw 




5400h 




c 


dw 




5400h 




c 


dw 




5500h 




c 


dw 




5500h 




c 


dw 




5500h 




c 


dw 




5500h 




c 


dw 




5600h 




c 


dw 




5600h 




c 


dw 




5600h 




c 


dw 




5600h 




c 


dw 




5700h 




c 


dw 




5700h 




c 


dw 




5700h 




c 


dw 




5700h 




c 


dw 




5800h 




c 


dw 




5800h 




c 


dw 




5800h 




c 


dw 




5800h 




c 


dw 




5900h 




c 


dw 




5900h 




c 


dw 




5900h 




c 


dw 




5900h 




c 


dw 




5A00h 




c 


dw 




5A00h 




c 


dw 




5A00h 




c 


dw 




5A00h 




c 


dw 




5B00h 




c 


dw 




5B00h 




c 


dw 




5B00h 




c 


dw 




5B00h 




c 










c 


kb datal 


endp 





91 5Bh 



92 5Ch 



93 5Dh 



94 5Eh 



95 5Fh 



96 60h 



97 61h 



98 62h 



99 63h 



100 64h 



101 65h 



102 66h 



103 67h 



Adv Word = X116 


Up =X72 


Home=X71 


Home=X71 


Home=X71 


Break 


Break 


Break 


Break 


Break 


Break 


Break 


Break 


Break 


Break 


Break 


Break 


Break 


Break 


Break 


Break 


NumLk 


NumLk 


NumLk 


NumLk 


Pause 


Pause 


NumLk 


NumLk 


/ 


/ 


/ 


/ 


None 


None 


None 


None 


F11=X84 




F11=X84 




F11=X84 




F11=X84 




F12=X85 




F12=X85 




F12=X85 




F12=X85 




F13=X86 




F13=X86 




F13=X86 




F13=X86 




F14=X87 




F14=X87 




F14=X87 




F14=X87 




F15=X88 




F15=X88 




F15=X88 




F15=X88 




F16=X89 




F16=X89 




F16=X89 




F16=X89 




F17=X90 




F17=X90 




F17=X90 




F17=X90 




F18=X91 




F18=X91 




F18=X91 




F18=X91 
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B9FC 

CEF8 
= 0001 



= 00FF 
= 00BB 



include wd hdu.asm 

; TITLE WX2BI0S Version 8 85/04/02 
; SUBTTL BIOS for Western Digital Winchester Controllers 
PAGE 62,132 

Integrated Verion F to our existing BIOS. 04/07/85 

From Dave Joan, Western Digital, 

(1) BIOS polling status at end of rest pulse caused 5 to 9 us pulses 
on all drive lines due to 1015 ports not lbeing set up. A delay of 
at least 3 milliseconds between reset and polling was added to the 
reset command routine. 

(2) Install sets up registers AL,DH,CX in case System BIOS did not. 

Ported Version E to our version of the WX2BI0S. I have added enhancements 
like: 1) deglitching the interrupt service routine; 2) inserting time outs 
around the wait for interrupt loop 
Version E 

Dave Joan 85/02/07 
Version 8 (begun from NLSBI0S version 1) 
Bob Hossley 83/10/10 - 83/10/10 
Exact copy of NLSBI0S version 1 
Version 1 
Bob Hossley 83/10/06 - 83/10/06 

83/10/06 Reset code refined work with SHD artwork revision 1, 2, or 3 
Version (begun from WX2BI0S version 6) 
Bob Hossley 83/10/05 - 83/10/06 
Bill Bailey 83/10/04 - 83/10/04 



Basic (i.e. Fundamental) Input/Output System for the Western Digital 
WX2 Winchester Controller board 

This BIOS provides access to 5 1/4 inch fixed disks via a 
controller compatible with the IBM fixed disk controller. 

The BIOS routines are meant to be entered only via software 
interrupts. Addresses in these listings should never be referenced. 
Applications which reference absolute addresses in the code segment 
violate the structure and design of this BIOS. 



code segment common 'ROM' 

assume cs:Code, ds: nothing, es: nothing, ss: nothing 
public bios install 
public i13_ih 
ORG 0CEF8H 



DMACC EQU 01h 
Error Codes Returned by BIOS 



ec stat 
ec undef 



EQU 
EQU 



OFFh 
OBBh 



non zero for dma accelerator code 



; Read status failed 
Undefined error 
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= 0080 
= 0040 
= 0020 
= 0011 
= 0010 
= 000B 
= 0009 
= 0007 
= 0005 
= 0004 
= 0002 
= 0001 
= 0000 



= 0018 



0000 
0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
000A 
000B 
000C 
000D 
000E 
000F 
0010 
0011 
0012 
0013 
0014 
0015 



000E 



= 0000 
= 0001 
= 0003 
= 0004 
= 0005 
= 0006 
= 0007 



c 


ec time 


EQU 


080h 


; No response from device 


c 


ec seek 


EQU 


040h 


; Seek failed 


c 


ec cntlr 


EQU 


020h 


; Controller failed self test 


c 


ec ecc cor 


EQU 


011h 


; ECC corrected data error 


c 


ec ecc un 


EQU 


010h 


Uncorrectable data error 


c 


ec bad trk 


EQU 


OOBh 


Bad track 


c 


ec dma 64k 


EQU 


009h 


Attempt to DMA across 64K boundary 


c 


ec init 


EQU 


007h 


Initialize drive failed 


c 


ec reset 


EQU 


005h 


Reset failed 


c 


ec sec not fnc 


I EQU 


004h 


Sector not found 


c 


ec addr nark 


EQU 


002h 


Address mark not found 


c 


ec be 


EQU 


001h 


Bad command 


c 
c 
c 
c 
c 
c 
c 
c 
c 


ec no err 


equ 


000 


no error 


; Error codes 


returned 


by the wx2 




ere corr 


equ 


18h 


ECC error corrected 


; BIOS Command Codes 






be reset 


EQU 





reset controller 


c 


be cc 


EQU 


1 


return last completion code 


c 


be rd 


EQU 


2 


read sectors 


c 


be wr 


EQU 


3 


write sectors 


c 


be vr 


EQU 


4 


verify sectors 


c 


be ft 


EQU 


5 


format track 


c 


be fbt 


EQU 


6 


format bad track 


c 


be fd 


EQU 


7 


format drive 


c 


be par rd 


EQU 


8 


read parameters 


c 


be par set 


equ 


9 


set parameters 


c 


be rdl 


equ 


10 


read long 


c 


be wrl 


equ 


11 


write long 


c 


be seek 


equ 


12 


seek 


c 


be reset 1 


equ 


13 


reset controller 


c 


be buff rd 


equ 


14 


read sector buffer 


c 


be buff wr 


equ 


15 


write sector buffer 


c 


be tst rdy 


equ 


16 


test drive ready 


c 


be recal 


equ 


17 


recalibrate 


c 


be diag ram 


equ 


18 


ram diagnostic 


c 


be diag drv 


equ 


19 


drive diagnostic 


c 


be diag ctlr 


equ 


20 


controller diagnostic 


c 
c 
c 


be dasd 


equ 


21 


new cmd 15H ; read DASD type% 


; Screen BIOS 


command 


codes 




c 
c 
c 
c 
c 


be v w 


equ 


14 


write character to screen 


; Disk Controller Command Codes 




dc tst rdy 


EQU 





TEST READY 


c 


dc recal 


EQU 


1 


RECALIBRATE 


c 


dc stat rd 


EQU 


3 


READ STATUS 


c 


dc~fd 


EQU 


4 


FORMAT DRIVE 


c 


dc vr 


EQU 


5 


verify sectors 


c 


dc ft 


EQU 


6 


format track 


c 


dc fbt 


EQU 


7 


FORMAT BAD TRACK 
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= 0008 
= 000A 
= 000B 
= 000C 
= 000D 
= 000E 
= 000F 
= 00E0 
= 00E3 
= 00E4 
= 00E5 
= 00E6 



= 0000 
= 0004 
= 0005 



= 0020 



= 0002 



0000 
0002 
0003 
0005 
0007 
0008 
0009 
000A 
000B 



= 0000 
= 0002 
= 0004 
= 0006 
= 0008 
= 000A 
= 000C 



C 
C 
C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



dc rd 
dc wr 
dc seek 
dc par set 
dc ecc rd 
dc buff rd 
dc_buff wr 
dc_diag ram 
dc_diag_drv 
dc_diag_ctlr 
dc_rdl 
dc wrl 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



OAH 

OBH 

OCH 

ODH 

OEH 

OFH 

OEOH 

0E3H 

0E4H 

0E5H 

0E6H 



; Command Control Block offsets 
ccbcmd equ 
ccb blks equ 4 
ccb opt equ 5 

; Bits in Byte 1 of the ccb 



READ SECTORS 

WRITE SECTORS 

SEEK 

SET DRIVE PARAMETERS 

READ ERROR BURST LENGTH 

READ SECTOR BUFFER 

WRITE SECTOR BUFFER 

RAM DIAGNOSTIC 

DRIVE DIAGNOSTIC 

CONTROLLER DIAGNOSTIC 

READ LONG 

WRITE LONG 



command code 

number of blocks or interleave factor 

option byte 



ccb drv b 



equ 



20h 



; drive bit 



CCB option byte 
Bit 

2 
5 



0, 1, 
3, 4, 
6 



Step option 

Reserved for future use 

— > Stable ECC required before correction 

1 --> Immediate ECC correction 

— > Retries allowed 

1 — > No retries allowed 



Command Completion byte 



cc er 



equ 



; error flag bit: --> no error 



offsets in a Winchester parameter subtable 



wst cyl 
wst heads 
wst_re_wr 
wst wr pre 
wst er bur 
wst opt 
wst_sto 
wst_fto 
wst ddto 



equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 





2 

3 

5 

7 

8 

9 

10 

11 



2-byte number of cylinders 

1-byte number of heads 

2-byte starting reduced write cylinder 

2-byte starting write pre-comp cyl 

1-byte max. error burst length 

1-byte option byte for CCB 

1-byte standard time out parameter% 

1-byte format drive time out parameter% 

1-byte drive diagnostic time out parameter% 



Activation Record Descriptions 



a1_es 
a1_ds 
al si 
a1~di 
a1 bp 
a1_dx 
a1 ex 



equ 





equ 


2 


equ 


4 


equ 


6 


equ 


8 


equ 


10 


equ 


12 
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000E 



0010 
0013 
0018 
0040 



0165 
019A 
01BE 
0584 



0004 
0002 
0008 
0080 
0200 



0000 
0020 
0082 

0063 

0320 

0004 

0067 



0000 
0001 



= 0002 



= 0000 
= 0001 
= 0002 



c 


al bx 


equ 


14 


c 








c 


; Interrupt vector numbers 


c 


ivn dis char 


equ 


10h 


c 


ivn be 


equ 


13h 


c 


ivn basic 


equ 


18h 


c 


ivn be dette 


equ 


40h 


c 








c 


; Timer Values 






c 


ti 1 


equ 


446d-89d 


c 








c 


ti kb reset 


equ 


446d-36d 


c 








c 


ti fin 


equ 


446d 


c 








c 


ti be reset 


equ 


1412d 


c 








c 








c 


; Miscellaneous 


symbols 


c 








c 


ctlr mx 


equ 


4 


c 


drv ctlr 


EQU 


2 


c 


drv total 


EQU 


ctlr mx*drv ctlr 


c 


dnwin 


equ 


80h 


c 


sec size 


equ 


512 


c 








c 


; Hardware specific 


values 


c 


; Port Addresses 




c 


p dma 


EQU 





c 


p int 


EQU 


20H 


c 


p dma latch 


EQU 


082H 


c 








c 


p dmacc 


EQU 


63H 


c 








c 


p wx2 


EQU 


0320H 


c 








c 


wx2 1 


equ 


4 


c 








c 


sw b 


equ 


67H 


c 








c 


; Offsets from 


base 


address for one WX2 


c 


; Read Use 






c 


wx2 r data 


equ 





c 


wx2 r status 


equ 


1 


c 








c 








c 








c 








c 


wx2 r config 


equ 


2 


c 








c 


; Write Use 






c 


wx2 w data 


equ 





c 


wx2 w reset 


equ 


1 


c 


wx2 w select 


equ 


2 


c 









call to screen bios 

call to diskette or Winchester bios 

enter ROM resident BASIC 



time to wait after drive is found 
usable = 89 * .056 = 5 seconds 
initial timer counter for kb reset 

36 * .056 = 2 seconds 
final timer counter 
.056 seconds per count 
delay loop count for 3 ms minimum. 

based on 17 eye X .125 us = 1 loop 



; maximum number of wx2 controllers 
; number of drives per controller 
; total number of drives possible 
; least significant Winchester drive # 
; number of bytes per sector 



base address for DMA chip registers 

8259 control port 

4-bit latch for bits 16 - 19 of DMA 

address 

port for dma accelerator % 

predictor sector size and sample enable% 

Base address for WX2 ports 

number of ports per WX2 controller 

mother board switch% 

controller 

data from WX2 to host 

WX2 status 

Caution: subroutine wx2 req requires that 

wx2 r data + 1 = wx2 r status 
Caution: subroutine ccb send requires that 
wx2 r stat = wx2 w select -1 
configuration switches 



data from host to WX2 

reset WX2 controller 

select WX2 controller 

Caution: subroutine ccb send requires that 
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0003 
000C 



0008 
0004 
0002 
0001 
0020 
0010 



000C 
0003 



= 0001 



= 0002 



0006 
0007 
0008 
000B 
0009 
000A 
000F 
000C 



= 000D 



= 0008 



= 0007 



000B 



wx2 w msk 
wx2 lrg offset 



equ 
equ 



3 
12 



Bits in wx2 r status 



wx2 stat_busy 
wx2 stat_cd 
wx2 stat io 
wx2 stat req 
wx2 stat int 
wx2 stat drq 



EQU 
EQU 
EQU 
EQU 
equ 
equ 



00001000B 
00000100B 
00000010B 
00000001B 
00100000b 
00010000b 



; Bits in wx2 r config 
wx2_config_0 equ 00001100b 
wx2_config_1 equ 00000011b 



wx2 w msk = wx2 w select +1 
mask register 
largest port offset for hard disk controller% 



Busy 

command/data 

input/output 

request (start state machine) 
interrupt 
dma data request 



; switch field for drive 
; switch field for drive 1 



; Bits in wx2_w_msk (bits 2 
wx2 msk dma equ 01b 



wx2 msk int 



equ 



10b 



7 are don't cares) 

; dma mask bit 

— > dma to host disabled 

1 --> dma to host enabled 
; interrupt mask bit 

--> interrupt to host disabled 

1 --> interrupt to host enabled 



Offsets from the DMA base address 
Write 

For each channel there is a 16-bit address register and a 16-bit 
byte count register. For channel i (i = 0, 1, 2, 3) the address 
register is at address i*2 and the byte count register is at address 
(i*2) + 1. 



dma w_addr 
dma_w_cnt 
dma w cmd 
dma w mode 
dma w req 
dma_w_mask_b 
dma w mask 
dma w byte 



dma_w_clr 
; Read 
dma r status 



equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 



equ 



equ 



3*2 

3*2+1 

8 

11 

9 

10 

15 

12 



13 



channel 3 address register (16-bits) 

channel 3 byte count register (16-bits 

command register (8 bits) 

mode register (6 bits) 

request register (4 bits) 

write single mask register bit 

mask register (4 bits) 

clear pointer to register byte 

--> bits - 7 of register 

1 — > bits 8 - 15 of register 
master clear 

; status register (8 bits) 



; Commands for DMA controller 

; Commands for mode register 

ENDIF 

IF DMACC 

dma mode wr EQU 000001 11B 



dma mode rd 



EQU 



00001011B 



bits 6, 


7 


= 01 


bits 2, 


3 


= 01 


bits 0, 


1 


= 11 


bits 6, 


7 


= 01 


bits 2, 


3 


= 10 


bits 0, 


1 


= 11 



--> DEMAND mode select% 

--> write transfer% 

--> Channel 3 select% 

--> DEMAND mode select% 

--> read transfer% 

--> Channel 3 select% 
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0003 
0004 



0000 
0001 



= 0000 

= 0001 

= 0001 
= 0020 

= 0020 



0000 

0034 
0034 

004C 
004C 

0064 
0064 

0078 
0078 

0100 
0100 

0104 
0104 

7C00 

7C00 



ENDIF 

; bits 0, 1 = 11 — > Channel 3 select 
; Commands for mask register bit change register 

dma mask b 3 equ 11b ;bits 0, 1 = 3 — > channel 3 mask bit 
dma mask b s equ 100b ; bit 2 = 1 — > set mask bit 



IF DMACC 
dmanorm 
dmalong 
ENDIF 



equ 
equ 



; Offsets from p int 

; write 

int w ocw2 equ 



; Read or Write 
int ocwl equ 



1 



; Bits in int ocwl 

int_ocw1_m0 equ 00000001b 

int ocwl m5 equ 00100000b 



; Commands for ocw2 

int ocw2 eoi EQU 20H 



Interrupt Vector Area 



intvec SEGMENT AT 



iv int 



iv be 



ORG 



ORG 



ORG 



iv boot 



4*0dh 

LABEL DWORD 

4*ivn be 
LABEL DWORD 

4*19h 

LABEL DWORD 



ORG 1EH*4 

iv_p_tbl_dett LABEL DWORD 

ORG 4*ivn_bc_dette 

iv be dett LABEL DWORD 

ORG 041H*4 

iv_p_tbl_win LABEL DWORD 

ORG 7C00H 

iv boot buf LABEL FAR 



; normal dma flag% 
; long dma flag% 



; Operation Control Word 0: 

; rotate & end of interrupt control 

; Operation Control Word 1: set 
; the interrupt mask register 

channel zero mask 

The clock used channel 0. 
channel 5 mask 

The WX2 uses channel 5. 



; End of interrupt command 



; Winchester interrupt 



; call to diskette or Winchester BIOS 



; call to Winchester BIOS to boot system 



; Diskette parameter table 



; call to diskette BIOS 



; Winchester parameter table 



address of buffer for disk resident 
boot code 

A jump to this label begins execution 
of the disk resident boot code 
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7C00 



= 0040 
0000 



0042 
0042 
0042 

006C 

006C ???? 

0072 

0072 ???? 

0074 

0074 ?? 

0075 ?? 

0076 ?? 

0077 ?? 
0078 



C 
C 
C 
C 
C 
C 
C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 



intvec ENDS 



RAM Workspace 



W2RAM EQU 40H 
wdram SEGMENT AT 40H 



ORG 42H 
ram_ccb LABEL BYTE 
ram stat LABEL BYTE 



needed for masm% 



ORG 
ram time 

ORG 
ram_kb_reset 

ORG 
ram cc 
ram drv cnt 
ram opt 
ram po 



06CH 

DW 

72H 

DW 

74H 

DB 

DB 

DB 

DB 



; 6-byte Command Control Block 
; 4-bytes of controller status 



; Timer low word 

; 1234H if keyboard reset underway 

completion code 

Number of drives on WX2 controller 
spare - was temp for option byte 
spare - port offset temp 



wdram 



ENDS 



^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 



code segment 

org 

db 

db 





55h,0aah 

16 



BIOS header 

number of 512 blocks in the block of 

host memory allocated to this BIOS. 

If the BIOS ROM used is smaller, then 

it appears several times in the host 

memory 



Call: call ROM-base-address + 3 
return 

Install Winchester BIOS into the interrupt vector system. 

Entry: No entry parameters. 

Exit: No exit parameters. 

The message " Not Ready" is displayed if there are no usable Winchester 
disks. 



assume cs:COde 



;call to initialize is required to 
; establish cs 
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CEF8 E9 CFB4 R 



CEFB 28 43 29 20 43 6F 
70 79 72 69 67 68 
74 20 31 39 38 33 
20 57 65 73 74 65 
72 6E 20 44 69 67 
69 74 61 6C 20 43 
6F 72 70 6F 72 61 
74 69 6F 6E 

CF29 

CF29 CF 

CF2A 02 

CF2B 25 

CF2C 02 

CF2D 08 

CF2E 2A 

CF2F FF 

CF30 50 

CF31 F6 

CF32 19 

CF33 04 



C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



jmp near ptr bios install ; entry for power-up initialize 



Call JMP R0M_base_address +5 

Purpose: format the specified drive with the specified interleave. 



Entry: 



(AH) = Relative number of target drive. Drive 80h + d is the target. 
(AL) = Interleave factor. 



Exit: Job terminated, 
jmp wx2 fmt 



; format entry 



db '(C) Copyright 1983 Western Digital Corporation' 



p tbl dett: 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 



11001111B 

2 

25h 

2 

8 

02AH 

0FFH 

050H 

0F6H 

25 

4 



srt=C, HD unload = F 

HD load = 1, mode = DMA 

wait after open til motor off 

512 bytes per sector 

EOT 

gap length 

DTL 

gap length for format 

fill byte for format 

head settle time in milliseconds 

motor start time (1/8 seconds) 



Winchester Parameter Table 



Offset 



16 

32 

48 

64 

80 

96 
112 



15 

31 

47 

63 

79 

95 

111 

127 



subtable 
subtable 1 
subtable 2 
subtable 3 
subtable 4% 
subtable 5% 
subtable 6% 
subtable 7% 



The configuration switches accessible via port wx2 r config specify 
the subtable to be used for each drive. Each drive has two switches 
which determine a 2-bit field in port wx2 r config which specifies 
the subtable number for the drive. 
Two auxliary switches have been added to expand the parameter table. % 
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CF34 



CF34 0132 

CF36 04 

CF37 0132 

CF39 0000 

CF3B OB 

CF3C 05 

CF3D 0C 

CF3E B4 

CF3F 28 

CF40 00 00 00 00 



CF44 02B9 

CF46 05 

CF47 02B9 

CF49 0000 

CF4B OB 

CF4C 05 

CF4D 10 

CF4E DO 

CF4F 60 

CF50 00 00 00 00 



CF54 0280 

CF56 04 

CF57 0100 

CF59 0100 

CF5B 0B 

CF5C 05 



C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



Bits 3 and 2 (OCH) on the mother board (port 067H) are read for one% 
extra bit per drive; bit 3 for drive 0, bit 2 for drive 1.% 

Winchester Parameter Subtable 

Offset Byte Length 

2 Number of cylinders 

2 1 Number of heads 

3 2 Starting reduced write current cylinder 
5 2 Starting write precompensation cylinder 

7 1 Max. correctable error burst length 

8 1 CCB option byte 

9 1 Standard time out value 

10 1 Format time out value 

11 1 Check drive time out value 

12 4 Reserved for future use 

tbl win: 

Table Entry - 10Mb 
This is the 10Mb drive supported as the default drive in the PC6300 



DW 


0306D 


DB 


04 


DW 


0306D 


DW 





DB 


OBH 


DB 


5 


DB 


OCH 


DB 


0B4H 


DB 


28H 


DB 


0,0,0,0 



Table Entry 1 - 30Mb 
CDC Wren Hard Disk Drive 



DW 


0697D 


DB 


05 


DW 


0697D 


DW 





DB 


OBH 


DB 


5 


DB 


10H 


DB 


ODOH 


DB 


60H 


DB 


0,0,0,0 



Table Entry 2 - 20Mb 

CMI CM6426 Hard Disk Drive 



DW 


0640D 


DB 


04 


DW 


0256D 


DW 


0256D 


DB 


OBH 


DB 


5 
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CF5D OC C DB OCH 

CF5E B4 C DB 0B4H 

CF5F 28 C DB 28H 

CF60 00 00 00 00 C DB 0,0,0,0 

C 

C ; Table Entry 3 - 40Mb 

C ; Tandon Hard Disk Drive 

C 
CF64 03D5 C 

CF66 05 C 

CF67 03D6 C 

CF69 FFFF C 

CF6B OB C 

CF6C 05 C 

CF6D 18 C 

CF6E FF C 

CF6F 90 C 

CF70 00 00 00 00 C 

C 

C ; Table Entry 4 - 40Mb 

C ; Seagate Hard Disk Drive ST4051 



DW 


0981D 


DB 


05 


DW 


0982D 


DW 


OFFFFH 


DB 


OBH 


DB 


5 


DB 


18H 


DB 


OFFH 


DB 


90H 


DB 


0,0,0,0 



c 

CF74 03D1 C 

CF76 05 C 

CF77 FFFF C 

CF79 01F4 C 

CF7B OB C 

CF7C 05 C 

CF7D 18 C 

CF7E FF C 

CF7F 90 C 

CF80 00 00 00 00 C 

C 



DW 


0977D 


DB 


05 


DW 


OFFFFH 


DW 


0500D 


DB 


OBH 


DB 


5 


DB 


18H 


DB 


OFFH 


DB 


090H 


DB 


0,0,0,0 



C ; Table Entry 5 - 80 Mb 

C ; Miniscribe Hard Disk Drive Model 6086 



C 
CF84 0400 C 

CF86 08 C 

CF87 0401 C 

CF89 0200 C 

CF8B OB C 

CF8C 05 C 

CF8D 30 C 

CF8E FF C 

CF8F BB C 

CF90 00 00 00 00 C 

C 



DW 


1024D 


DB 


08 


DW 


1025D 


DW 


512D 


DB 


OBH 


DB 


5 


DB 


30H 


DB 


OFFH 


DB 


OBBH 


DB 


0,0,0,0 



C ; Table Entry 6 - 67 Mb 

C ; Micropolis Hard Disk Drive Model 1325 



C 
CF94 0400 C 

CF96 08 C 

CF97 0401 C 

CF99 0400 C 

CF9B OB C 



DW 


1024D 


DB 


08 


DW 


1025D 


DW 


1024D 


DB 


OBH 
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CF9C 


05 


CF9D 


25 


CF9E 


FF 


CF9F 


A0 


CFAO 


00 00 00 00 



DB 


5 


DB 


25H 


DB 


OFFH 


DB 


OAOH 


DB 


0,0,0,0 



c 
c 
c 
c 
c 
c 

C ; Default table 7 - 20 Mb 

C ; Seagate ST225 Hard Disk Drive or Miniscribe 3425 Hard Disk Drive 

C 

C DW 0612D 

C DB 04 

C DW 0613D 

C DW 256D 

C DB OBH 

C DB 5 

C DB OCH 

C DB 0B4H 

C DB 28H 

C DB 0,0,0,0 

C 

C ; 

C 

C biosjLnstall proc near 

C xor ax, ax ; zero 

C mov ds,ax ; initialize data segment register 

C assume ds : intvec 

C 

C ; Set interrupt vectors to install BIOS into operating system 



CFA4 


0264 


CFA6 


04 


CFA7 


0265 


CFA9 


0100 


CFAB 


OB 


CFAC 


05 


CFAD 


OC 


CFAE 


B4 


CFAF 


28 


CFBO 


00 00 00 00 



CFB4 




CFB4 


33 CO 


CFB6 


8E D8 



c 

CFB8 FA C cli 



CFB9 C4 06 004C R C les ax,iv_bc 

C 



; disable interrupts 
; 20-bit pointer to entry for 
; call to diskette bios 

CFBD A3 0100 R C mov word ptr iv be dett,ax ; initialize new pointer 

CFCO 8C 06 0102 R C mov word ptr iv_bc_dett+2,es 

CFC4 C7 06 004C R D17D R C mov word ptr iv_bc, offset i13_ih ; 20-bit pointer to entry for 

CFCA 8C OE 004E R C mov word ptr iv_bc+2,cs ; call to Winchester BIOS 

CFCE C7 06 0064 R DOED R C mov word ptr iv_boot, offset i19_boot_sys ; 20-bit pointer to boot system code 

CFD4 8C OE 0066 R C mov word ptr iv_boot+2,cs 

CFD8 C7 06 0034 R D161 R C mov word ptr iv_int, offset id_ih ; 20-bit pointer to disk interrupt 

CFDE 8C OE 0036 R C mov word ptr iv_int+2,cs ; handler 

CFE2 C7 06 0104 R CF34 R C mov word ptr iv_p_tbl_win, offset p_tbl_win ; 20-bit pointer to Winchester 

CFE8 8C OE 0106 R C mov word ptr iv_p_tbl_win+2,cs ; parameter table 

CFEC FB C sti ; enable interrupts 

C 

C assume ds : wdram 

CFED B8 0040 C mov ax,W2RAM ; ram segment address 

CFFO 8E D8 C mov ds,ax ; establish segment 

C 

C ; If a power-up boot is in progress, then wait up to 25 seconds for the 

C ; first Winchester drive to spin up. 

C 

CFF2 C6 06 0075 R 00 C mov ram drv cnt,00 



CFF7 B8 019A C mov ax,ti_kb_reset 

CFFA 81 3E 0072 R 1234 C emp ram_kb_reset, 1234h 
D000 74 02 C je kb reset 



clear number of drives 

initial timer value for keyboard reset 

keyboard reset? 

jump if yes 
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D002 33 CO 

D004 

D004 A3 006C R 

D007 FA 

D008 E4 21 

DOOA 24 FE 

DOOC E6 21 

DOOE FB 



DOOF B2 80 

D011 

D011 B9 0001 

D014 8A F5 

D016 8A C1 

D018 B4 00 

D01A CD 13 

D01C 72 2F 

D01E B4 14 

D020 CD 13 

D022 72 29 



D024 
D024 



D03D 
D03D 
D03F 
D041 
D043 
D049 



B4 10 



D026 CD 13 
D028 73 08 



81 3E 006C R 0222 
72 F2 



D02A 
D030 

D032 

D032 

D034 

D037 

D039 CD 13 

D03B 72 50 



33 CO 
A3 006C R 
B4 11 



B4 10 

CD 13 

73 33 

81 3E 006C R 01BE 

72 F2 



xor 

kb reset: 
mov 

cli 
in 
and 
out 

sti 



ram time, ax 



al,p int+int ocwl 
al.not int ocw1_m0 
p int+int ocw1,al 



; clear for long delay while disk 
; spins up after power on 

; initialize timer counter 

disable interrupts 
read interrupt mask register 
enable interrupts on channel 
set interrupt mask register 
This starts the timer, 
enable interrupts 



Count the usable Winchester drives. To speed this counting, if a 
controller is unusable, then testing of its second drive is skipped. 
A drive is usable if and only if its controller resets, runs its 
controller diagnostic, recalibrates the drive, and executes test 
drive ready all without error. 



dl,dnwin 



; base Winchester drive number 



ctlr init: 
; These 3 lines set up regs for Test Drive Ready in case host didn't. V.F. 



trdyO: 



mov 
mov 
mov 

mov 
int 
jc 

mov 
int 



mov 
int 
jnc 
cmp 
jb 



drv: 

xor 
mov 
mov 
int 
jc 

tst_drv_rdy : 
mov 
int 
jnc 
cmp 
jb 



cx,1 

dh,ch 

al.cl 

ah,bc_reset 
ivn_bc 
nxt ctlr 

ah,bc_diag_ctlr 

ivn_bc 

nxt ctlr 



ah, be tst rdy 
ivn be 
drv 

ram_time,222h 
trdyO 



ax, ax 

ram time, ax 
ah, be recal 
ivn be 
nxt drv 



ah, be tst rdy 

ivn be 

drv rdy 

ram time.ti fin 

tst drv rdy 



cylinder 0, sector 1 
head # of zero 
sector count of 1 

bios call code 
call disk bios 
jump if error 

bios call code 
call disk bios 
jump if error 

wait for disk reset% 
bios call code% 
call disk bios% 
jump if drive ready% 
30 sec Time-out?% 
jump if no time-out yet% 



clear timer value% 
bios call code 
call disk bios 
jump if error 



bios call code 

call disk bios 

jump if drive ready 

Time-out? 

jump if no time-out yet 
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D04B 


EB 40 






C 
C 
C 
C 




jmp 


short nxt drv 


; go to next drive 


D04D 








nxt ctlr: 






D04D 


FE C2 






C 




inc 


dl 


; skip drive 1 on unusable controller 


D04F 


EB 3C 






C 
C 
C 
C 




jmp 


short nxt drv 




D051 


20 20 4E 6F 


74 


20 


hbad: 




db ' Not Ready ',0Ah,0Dh 




52 65 61 64 


79 


OA 


C 












OD 






C 










= 000D 






C 


hbads 




equ $-hbad 




D05E 


20 20 52 65 
79 OA OD 


61 


64 


C 
C 


hgood : 




db ' Ready \0Ah,0Dh 


= 0009 

D067 20 20 4E 6F 


74 


20 


C 
C 


hgoods 
habs: 




equ $-hgood 

db ' Not Present' , 


3Ah,0Dh 




50 72 65 73 


65 


6E 


C 












74 OA OD 






C 










= 000F 






C 
C 


habss 




equ $-habs 




D076 
D076 


FE 06 0075 R 






C 
C 
C 
C 

c 


drv rdy 


inc 


ram drv cnt 


; update drive count 


D07A 


80 FA 80 








cmp 


dl.dnwin 


1st drive? 


D07D 


75 OE 






c 




jne 


nxt drv 


jump if no 


D07F 


81 3E 0072 R 


1234 


c 




cmp 


ram kb reset, 1234h 


keyboard reset? 


D085 
D087 


74 06 

C7 06 006C R 


0165 


c 
c 




mov 


nxt drv 

ram time.ti 1 


jump if yes 

1st drive usable --> only wait 










c 








up to 5 seconds more for other 










c 








drives 


D08D 








c 


nxt drv 








D08D 


FE C2 






c 




inc 


dl 


update drive number 


D08F 


F6 C2 01 






c 




test 


dl,1 


Drive 1 on target controller? 


D092 


75 9E 






c 




jnz 


drv 


jump if yes.% 


D094 


80 FA 88 






c 




cmp 


dl,dnwin+drv total 


more wx2's to test? 


D097 


73 03 






c 
c 


; 


jb 
jae 


ctlr init 
usable 


; jump if yes. 
continue if usable 


D099 


E9 D011 R 






c 
c 
c 




jmp 


ctlr init 


go to ctlr init if not 


D09C 








usable: 








D09C 


80 3E 0075 R 


00 




c 




cmp 


ram drv cnt,0 


Any usable Winchesters? 


D0A1 


75 17 






c 
c 
c 
c 
c 
c 
c 




jne 


wins usable 


jump if yes. 










; Because 
; and set 


no Winchester drives are usable, display error message "Not Ready" 
the error exit flag. 


D0A3 
D0A6 


BE D051 R 
FC 








mov 
eld 


si, off set hbad 


pointer to message string 
clear direction --> inc si 


D0A7 


B9 00OD 






c 




mov 


ex, hbads 


number of bytes in message 


D0AA 


B3 01 






c 
c 
c 




mov 


bl,1 


choose foreground color% 


D0AC 








dis char: 






D0AC 
D0AE 


2E.- AC 
B4 OE 






c 
c 




lods 
mov 


byte ptr hbad 
ah, be v w 


load message byte 
bios call code 
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DOBO 


CD 


10 


D0B2 


E2 


F8 


D0B4 


BD 


OOOF 


D0B7 


EB 2B 90 


DOBA 






DOBA 


AO 


0075 R 


DOBD 


1E 




DOBE 


OE 




DOBF 


1F 




DOCO 


FC 




D0C1 


B3 


01 


D0C3 


OA 


CO 


D0C5 


75 


09 


D0C7 


B9 


OOOF 


DOCA 


BE 


D067 R 


DOCD 


EB 


OD 90 


DODO 






DODO 


04 


30 


D0D2 


B4 


OE 


D0D4 


CD 


10 


D0D6 


B9 0009 


D0D9 


BE 


D05E R 


DODC 






DODC 


AC 




DODD 


B4 


OE 


DODF 


CD 


10 


D0E1 


E2 


F9 


D0E3 


1F 




D0E4 






D0E4 


FA 




D0E5 


E4 


21 


D0E7 


OC 


01 


D0E9 


E6 


21 


DOEB 


FB 




DOEC 


C3 





DOED 



int 
loop 

mov 
jmp 

wins usable: 
mov 
push 
push 
pop 
eld 
mov 
or 
jnz 
mov 
mov 
jmp 



nzdrvs: 



hmsg : 



h exit: 



add 
mov 
int 
mov 
mov 

lodsb 

mov 

int 

loop 

pop 



cli 
in 
or 
out 

sti 
ret 



ivn dis char 
dis char 

bp,15d 
h exit 



bios install 
page 



; call screen bios 
; do next character 

; set error exit flag 
; jmp to exit% 



al,byte ptr ds : ram_drv_cnt 

ds 

cs 

ds 



; hold num of drives% 



bl,1 

al.al 

nzdrvs 

cx,habss 

si, off set habs 

hmsg 

al,'0' 

ah, be v w 

ivn dis char 

cx,hgoods 

si, off set hgood 



ah, be v w 
ivn dis_char 
hmsg 
ds 



al,p int+int ocwl 
al.int ocwl mO 
p int+int ocw1,al 



endp 



Call: 



int 19h 



ds for string prints% 

choose foregnd color% 

set flags% 

cont if drives% 

msg size% 

msg ptr% 



HEX drives = ASCII number% 
video cmd tty% 
print number of drives% 
msg size% 
msg ptr% 

al=ds:si si++ % 
video cmd.tty % 
print char% 
print string% 
restore DS % 



disable interrupts 

read interrupt mask register 

disable interrupts on channel 

set interrupt mask register 

This stops the timer. 

enable interrupts 

exit to system bios initialize 



Boot the operating system from diskette A or from the first usable 
Winchester drive. 

Entry: No entry parameters. 

Normal Exit: Jump to the start of the bootstrap sector read from disk. 

Error Exit: int 18h -- ROM resident BASIC entered. 

The ROM resident BASIC is entered if the system can't be booted. 



ROM BIOS Listing 



1-57 



ROM BIOS Listing 



DOED 

DOED 33 CO 

DOEF 8E D8 

D0F1 8E CO 



D0F3 FA 

D0F4 C7 06 0078 R CF29 R 

DOFA 8C 0E 007A R 

DOFE C7 06 0104 R CF34 R 

D104 8C OE 0106 R 

D108 FB 



D109 


B9 0003 


D10C 


33 D2 


D10E 




D10E 


B8 0000 


D111 


CD 40 


D113 


72 OF 


D115 


BB 7C00 R 


D118 


B8 0201 


D11B 


51 


D11C 


B9 0001 


D11F 


CD 40 


D121 


59 


D122 


73 34 


D124 




D124 


80 FC 80 


D127 


74 02 


D129 


E2 E3 


D12B 




D12B 


B8 0000 



c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 



Attempt to reset drive (a diskette) and then to read sector 1, 
cylinder 0, head 0. If this read is successful, then jump to the start 
of this sector in memory. Retry the preceding three times. 

Beginning with drive 80h (the first Winchester) and ending with 
drive 87h (the last possible Winchester) do the following: Attempt to 
reset the drive and then to read sector 1, cylinder 0, head 0. If this 
read is successful and the last word of this sector contains AA55h, then 
jump to the start of this sector in memory. 

Enter the ROM resident BASIC by executing int 18h. 



i19 boot sys: 
xor 
mov 
mov 
assume 



ax, ax 
ds,ax 
es,ax 
ds:intvec,es:intvec 



establish pointer to intvec segment 
establish pointer for disk buffer 



Install pointers to the default diskette parameter table and the 
default Winchester parameter table. 



cli 
mov 
mov 
mov 
mov 
sti 



; disable interrupts 
word ptr iv p tbl dett,offset p tbl dett ; 20-bit pointer to diskette 
word ptr iv p tbl dett+2,cs parameter table 
word ptr iv p tbl win, offset p tbl win ; 20-bit pointer to Winchester 
word ptr iv p tbl win+2,cs parameter table 

; enable interrupts 



Attempt to boot from diskette up to 3 times. A time-out error 
immediately ends the attempt to boot from diskette. 



mov ex, 3 
xor dx,dx 



; number of times to retry diskette 
; zero drive & head numbers 



dett boot: 
mov 
int 
jc 

mov 

mov 

push 

mov 

int 

pop 

jnc 



ax,bc_reset*256 
ivn be dette 
dett_boot_nxt 

bx, offset iv boot buf 

ax,bc_rd*256+1 

ex 

cx,1 

ivn_bc_dette 

ex 

boot succ 



(AH) = bios call #, 
call diskette bios 
jump if error 



(AL) = block count 



dett_boot nxt: 

emp ah,ec time 

je dett boot end 

loop dett boot 

dett boot end: 

mov ax, be reset*256 



address of sector buffer 
read one sector 
save retry count 
sector number 
call diskette bios 
restore retry count 
jump if no error 



time-out? 
jump if yes. 
jump if try again 



; (AH) = bios call #, (AL) = block count 



1-58 



ROM BIOS Listing 



ROM BIOS Listing 



D12E 


CD 40 


C 
C 
C 
C 


int 


ivn be dette 


call diskette bios 
ignore error if any 






; Boot from the first possible Winchester drive. Only one attempt is made 






C 


; to boot 


from each drive. A valid boot sector must have AA55 in its last 






C 
C 
C 


; word. 






D130 


B2 80 


mov 


dl.dnwin 


least significant Winchester drive # 


D132 


B9 0008 


C 
C 
C 


mov 


cx ? drv total 


max. number of Winchester drives 


D135 




win boot: 






D135 


B4 00 


C 


mov 


ah, be reset 


bios command code 


D137 


CD 13 


C 


int 


ivn be 


call disk bios 


D139 


72 17 


C 
C 
C 


jc 


win boot nxt 


jump if error 


D13B 


BB 7C00 R 


mov 


bx, offset iv boot buf 


address of sector buffer 


D13E 


B8 0201 


C 


mov 


ax, be rd*256+1 


read one sector 


D141 


51 


C 


push 


ex 


save drive count 


D142 


B9 0001 


c 


mov 


cx,1 


sector number 


D145 


CD 13 


c 


int 


ivn be 


call disk bios 


D147 


59 


c 


pop 


ex 


restore drive count 


D148 


72 08 


c 
c 
c 


jc 


win boot nxt 


Jump if error 


D14A 


81 3E 7DFE R AA55 


cmp 


word ptr iv boot buf+sec 


size-2,0aa55h ; valid boot sector? 


D150 


74 06 


c 
c 

C \ 


je 


boot succ 


jump if yes. 


D152 




vin boot nxt: 






D152 


FE C2 


c 


inc 


dl 


update drive number 


D154 


E2 DF 


c 
c 
c 


loop 


win boot 


jump if more drives to try 


D156 


CD 18 


int 


ivn basic 


can't boot from disk, enter 






c 
c 






ROM resident BASIC 


D158 




c 

C bOOt SUCC: 










C 


jmp 


iv boot buf 


jump to boot sector read from disk 


D158 


2E: FF 2E D15D R 


C 


jmp 


dword ptr cs : [brec] 


jump to boot sector read from disk% 


D15D 




C brec: 






D15D 


7C00 R 


C 


dw 


offset iv boot buf 


% 


D15F 


0000 


C 
C 
C 
C 
C 


dw 


0000 


% 






Call: 


int Odh 








C 
C 
C 
C 
C 
C 

c 
c 
c 
c 

C ] 




return 








Winchester interrupt handler 








Entry: No 


entry parameters 








Exit: No 


registers changed. 




D161 




id ih: 
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D161 


50 


D162 


BO OB 


D164 


E6 20 


D166 


90 


D167 


E4 20 


D169 


A8 20 


D16B 


74 0E 


D16D 


B0 20 


D16F 


E6 20 


D171 


B0 07 


D173 


E6 0A 


D175 


E4 21 


D177 


0C 20 


D179 


E6 21 


D17B 




D17B 


58 


D17C 


CF 



D17D 



D17D FB 



C 
C 
C 
C 
C 
C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



push ax 



mov 

out 

nop 

in 

test 



al.Obh 

p int+int w ocw2,al 

al,p int+int w ocw2 

al,20h 

bogus 



mov al.int ocw2 eoi 
out p int+int w ocw2,al 



; save register 



set up to 

read the in service register of 8259 

seperate by nop 

read in service register 

if hard disk not in service zf=1 

if zf=1 then bogus interrupt(exception) 

send eoi right away% 
end of interrupt bit 
end of interrupt to 8259 



mov al,dma mask b s or dma mask b 3 ; set channel 3 mask bit 
out p dma+dma w mask b,al ;set bit to disable channel 3 



bogus: 



in 
or 
out 

pop 
iret 



al,p int+int ocwl 
al.int ocwl m5 
p int+int ocw1,al 



read interrupt mask 

set mask register bit to disable 

channel 5 which is used by the wx2 

; restore register 

; long return & restore flags 



Call: 



int 13h 
return 



Function call to disk BIOS. 



Entry: 



(AH) = Command code 
(AL) = Sector count or interleave factor 
(ES:BX) = Address of buffer 
(CL) bits - 5 = Sector number: 1, 2, 3, . . . 
(CL) bits 6, 7 = Bits 8, 9 of cylinder number 
(CH) = Bits - 7 of cylinder number 

(DL) = Drive number. - 7f are diskettes. 80h and up are Winchesters 
(DH) = Head number 



Exit: (CF) = --> no error 
1 — > error 
(AH) = Completion code. — > no error 
(AL) = Error burst length if (AH) = 11h. 



Else, changed. 



Read parameters: 

(DL) = Number of usable drives at install time 

(DH) = Maximum head number 

(CL) Bits - 5 = 17d — Maximum sector number 

(CL) bits 6, 7 = Bits 8, 9 of Maximum cylinder number 

(CH) = Bits - 7 of maximum cylinder number 

i13 ih proc far 

assume ds : nothing, es : nothing 



sti 



; enable interrupts 
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D17E 


80 FA 80 


C 
C 






emp 


dl.dnwin 


Winchester drive number? 


D181 


73 05 


C 
C 
C 






jae 


win be 


Jump if yes. 


D183 


CD 40 






int 


ivn be dette 


; call diskette bios 


D185 


CA 0002 


C 
C 
C 
C 
C 
C 






ret 


2 


•exit from call to disk bios 








; Target drive is a Winchester. 




D188 




win 


be 








D188 


80 FC 00 


C 






emp 


ah, be reset 


reset? 


D18B 


75 04 


C 
C 
C 






jne 


no reset 


jump if not reset 












; diskette bios ignores (DL) on reset call 


D18D 


CD 40 


C 

C 






int 


ivn be dette 


reset diskette controller 
ignore error if any 


D18F 


B4 00 


C 






mov 


ah, be reset 


reset command code 


D191 




C 

c 
c 


no 


reset: 






D191 


53 






push 


bx 


save registers to be preserved & used 


D192 


51 


c 






push 


ex 




D193 


52 


c 






push 


dx 




D194 


55 


c 






push 


bp 




D195 


57 


c 






push 


di 




D196 


56 


c 






push 


si 




D197 


1E 


c 






push 


ds 




D198 


06 


c 






push 


es 




D199 


8B EC 


c 
c 
c 






mov 


bp,sp 


initialize activation record pointer 










assume 


ds:wdram 




D19B 


50 


c 






push 


ax 


temp save 


D19C 


B8 0040 


c 






mov 


ax,W2RAM 


segment address 


D19F 


8E D8 


c 






mov 


ds,ax 


make ram reachable 


D1A1 


58 


c 
c 
c 






pop 


ax 


restore ax 


D1A2 


80 FC 15 






emp 


ah, be dasd 


command code in range? (new cmd)% 


D1A5 


75 05 


c 






jnz 


win cont 


cont if not equal% 


D1A7 


B4 03 


c 






mov 


ah, 3 


hard disk parm% 


D1A9 


EB 2E 90 


c 






jmp 


hd quit 


avoid everything% 


D1AC 




c 


win 


cont: 






D1AC 


77 05 


c 






ja 


be bad 


jump if out of range 


D1AE 


80 FA 88 


c 






emp 


dl,dnwin+drv total 


drive number in range? 


D1B1 


72 04 


c 






jb 


drvn ok 


jump if in range. 


D1B3 




c 


be 


bad: 








D1B3 


B4 01 


c 






mov 


ah,ec be 


completion code 


D1B5 


EB 03 


c 
c 
c 
c 






jmp 


short cmd done 




D1B7 




drvn ok 








D1B7 


E8 D1E4 R 


c 






call 


command br 


branch through command table 


D1BA 




c 


cmd 


done: 






D1BA 


50 


c 






push 


ax 


save output parameter 


D1BB 


88 26 0074 R 


c 
c 






mov 


ram cc,ah 


save completion code 
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D1BF 


E8 D51E R 


D1C2 


BO FC 


D1C4 


EE 


D1C5 


BO 07 


D1C7 


E6 OA 


D1C9 


FA 


D1CA 


E4 21 


D1CC 


OC 20 


DICE 


E6 21 


D1D0 


FB 


D1D1 


80 C4 FF 


D1D4 


BO 01 


D1D6 


E6 63 


D1D8 


58 


D1D9 




D1D9 


07 


D1DA 


1F 


D1DB 


5E 


D1DC 


5F 


D1DD 


5D 


D1DE 


5A 


D1DF 


59 


D1E0 


5B 


D1E1 


CA 0002 



D1E4 



D1E4 

D1E4 A2 0046 R 

D1E7 FE C9 

D1E9 89 OE 0044 R 



C 
C 
C 
C 
C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



call 

mov 

out 

mov 

out 

cli 

in 

or 

out 

sti 

add 



wx2 msk ; calculate port address 

al ? not (wx2 msk dma or wx2 msk int) 
dx T al ; disable dma & interrupts by wx2 

al,dma mask b 3 or dma mask b s 



p dma+dma w mask b,al 

al,p int+int_ocw1 
al,int_ocw1_m5 
p int+int ocw1,al 



ah.Offh 



hd quit: 



113 ih 



Call: 



mov 


al,dmalong 


out 


p dmacc,al 


pop 


ax 


pop 


es 


pop 


ds 


pop 


si 


pop 


di 


pop 


bp 


pop 


dx 


pop 


ex 


pop 


bx 


ret 


2 


endp 





set bit 3 to disable channel 3 

disable interrupts 

read mask register 

set bit 5 to disable channel 5 

set mask register 

enable interrupts 

set CF to indicate error/no error 
PCNET and Bernoulli fix 
disable dmacc 
again 

restore output parameter 



;% 

; restore registers 



; exit & throw away flags 



CALL command br 
return 



Branch through the bios command table 

Entry: Same as 113 ih. 

(BP) = Pointer to activation record described by symbols a1 XXXX 

Jump to command specific routine: 
(DS) = ram 

(BP) = Pointer to activation record described by symbols a1 XXXX 
(si) = offset to port base for target controller 

Exit: (AH) = Completion code 
(DS) = ram 



command br 
mov 



proc near 

ram ccb+ccb blks.al 



dec cl 

mov word ptr ram ccb+2,cx 



; sector count or interleave factor 

controller expects sector to be 
numbered 0, 1, 2, . . . 
set cylinder & sector numbers 
into command control block 
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DIED 


8A EA 


C 


mov 


ch,dl 




; drive # 


D1EF 


80 E5 01 


C 


and 


ch,01 




; mask to bit 


D1F2 


B1 05 


C 


mov 


cl,5 




; shift count 


D1F4 


D2 E5 


C 


shl 


ch.cl 




; align drive bit for ccb 


D1F6 


0A EE 


C 


or 


ch,dh 




; combine with head number 


D1F8 


88 2E 0043 R 


C 
C 
C 


mov 


ram ccb+1,ch 




; set into command control block 








; Calculate the offset from p wx2 for drive: 






C 






Drive # Offset 






C 






80, 


81 









C 






82, 


83 


4 






C 






84, 


85 


8 






C 






86, 


87 


12d 


D1FC 


80 EA 80 


C 


sub 


dl,dnwin 




; origin to 


D1FF 


81 E2 00FE 


C 


and 


dx,0FEh 






D203 


DO E2 


C 


shl 


dl,1 






D205 


8B F2 


C 
C 
C 


mov 


si,dx 




; save controller port offset 






; *** D version added next 7 


lines to set correct step rate *** 


D207 


50 


C 


push 


ax 




save command & # sectors 


D208 


06 


C 


push 


es 




save buffer address 


D209 


E8 D4DA R 


C 


call 


subtable 




determine subtable to use 


D20C 


26: 8A 47 08 


C 


mov 


al.es :wst opt[bx] 


option byte from subtable 


D210 


A2 0047 R 


C 


mov 


ram ccb+ccb opt,al 


set into ccb, sets step rate 


D213 


07 


C 


pop 


es 






D214 


58 


C 

c 
c 
c 
c 


pop 


ax 










; Table lookups indexed by 


the function call code 


D215 


8A C4 


mov 


al.ah 




BIOS command code 


D217 


BB D254 R 


c 
c 


mov 


bx, off set dc 


tbl 


pointer to table of controller 
command codes 


D21A 


2E: D7 


c 


xlat 


CS:dC tbl 




translate bios command code 


D21C 


A2 0042 R 


c 
c 
c 


mov 


ram ccb+ccb cmd,al 


command code into ccb 


D21F 


8A DC 


mov 


bl.ah 




bios command code 


D221 


32 FF 


c 


xor 


bh,bh 




zero high byte 


D223 


DO E3 


c 


sal 


bl,1 




multiply by 2 


D225 


2E: FF A7 D22A R 


c 
c 


jmp 


cs:br tbl[bx] 




branch to command specific routine 


D22A 




c 
c 


br tbl 


label word 






D22A 


D269 R 


c 


dw 


113 reset 






D22C 


D312 R 


c 


dw 


113 cc 






D22E 


D33A R 


c 


dw 


i13 rd 






D230 


D317 R 


c 


dw 


113 wr 






D232 


D399 R 


c 


dw 


dma no 




4 — verify 


D234 


D399 R 


c 


dw 


dma no 




5 — format track 


D236 


D399 R 


c 


dw 


dma no 




6 — format bad track 


D238 


D399 R 


c 


dw 


dma no 




7 — format drive 


D23A 


D2EB R 


c 


dw 


i13 par rd 






D23C 


D28B R 


c 


dw 


113 par wr 






D23E 


D31B R 


c 


dw 


113 rdl 






D240 


D32C R 


c 


dw 


113 wrl 






D242 


D399 R 


c 


dw 


dma no 




12 — seek 
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D244 


D269 R 


D246 


D330 R 


D248 


D336 R 


D24A 


D399 R 


D24C 


D399 R 


D24E 


D399 R 


D250 


D399 R 


D252 


D399 R 


D254 




D254 


OC 


D255 


00 


D256 


08 


D257 


0A 


D258 


05 


D259 


06 


D25A 


07 


D25B 


04 


D25C 


00 


D25D 


OC 


D25E 


E5 


D25F 


E6 


D260 


0B 


D261 


OC 


D262 


0E 


D263 


OF 


D264 


00 


D265 


01 


D266 


EO 


D267 


E3 


D268 


E4 



D269 

D269 E8 D519 R 

D26C EE 

D26D B9 0584 

D270 

D270 E2 FE 

D272 B4 OA 

D274 

D274 42 

D275 EE 

D276 4A 

D277 EC 



dc tbl 



Call: 



dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 



db 
db 
db 
db 
db 
db 
db 
db 
db 
db 
db 
db 
db 
db 
db 
db 
db 
db 
db 
db 
db 



page 



i13 reset 
i13_buff_rd 
i13_buff_wr 
dma no 
dma no 
dma no 
dma no 
dma no 

label byte 

dc par set 



dc_rd 

dc wr 

dc vr 

dc_ft 

dc_fbt 

dc_fd 



dc par set 

dc_rdl 

dcj/rl 

dc_seek 

dc_par_set 

dc buff_rd 

dc buff_wr 

dc tst_rdy 

dc recal 

dc diag ram 

dc diag drv 

dc diag ctlr 



call 
return 



113 reset 



;13 -- 


same as 


•16 -- 


test drive ready 


17 -- 


recalibrate 


18 -- 


RAM diagnostic 


19 -- 


drive diagnostic 


20 -- 


controller diagnostic 


reset 


sets parameters 


return completion code 



; read parameters 



; reset also sets parameters 



Purpose: Reset the target Winchester controller. 

Entry: (si) = Offset to port base for target controller 

Exit: (ah) = Completion code 



113 reset: 
call 
out 
mov 

re_dly : 

loop 
mov 

inc 
out 
dec 
in 



re W: 



wx2_reset 
dx.al 
cx.ti be reset 

re dly 
ah, 10 

dx 

dx.al 
dx 
al.dx 



calculate address of reset port to use 

reset wx2 controller 

loop count for 3 ms on fastest 80286 V.F. 

; wait longer then 1.4 ms reset pulse 
; msb of loop count 

control port 
select the controller 
status port 
read status 



1-64 



ROM BIOS Listing 



ROM BIOS Listing 



D278 


A8 30 


D27A 


75 0C 


D27C 


24 0D 


D27E 


34 0D 


D280 


74 09 


D282 


E2 F0 


D284 


FE CC 


D286 


75 EC 


D288 




D288 


B4 05 


D28A 




D28A 


C3 



D28B 

D28B C6 06 0043 R 00 

D290 E8 D29A R 

D293 72 F5 

D295 C6 06 0043 R 20 

D29A 

D29A BO FC 

D29C E8 D47A R 

D29F 72 E9 

D2A1 E8 D4DA R 



D2A4 BF 0001 

D2A7 E8 D2DE R 

D2AA BF 0000 

D2AD E8 D2DE R 

D2B0 BF 0002 

D2B3 E8 D2DE R 

D2B6 BF 0004 

D2B9 E8 D2DE R 



test 

jnz 

and 

xor 

jz 

loop 

dec 

jnz 



al,wx2 stat int or wx2 stat drq 

ctlr missing Jump if the controller is missing 

al,wx2 stat busy or wx2 stat cd or wx2 stat req 

al,wx2 stat busy or wx2 stat cd or wx2_stat_req 



113 parwr 

re_w 
ah 
re w 



ctlr missing: 

mov ah,ec reset 
ret near: 

ret 



jump if reset successful and the 

controller is trying to read ccb 

jump if no rollover 

update msb of counter 

jump if success still possible 



; error code 
; exit 



Call: call i13_par_wr 
return 

Purpose: Set parameters 

Entry: (si) = Offset to port base for target controller 

Exit: (ah) = Completion code 

*** As of A3 version, step rate selection is not part of Set Parameters 

*** command. Step rate is moved to CCB from subtable on every command. 



113 par_wr : 
mov 
call 



par wn 



mov 



mov 

call 

jc 



ramccb+1,0 
par wr 
ret near 

ram ccb+1,ccb drv b 



drive is 1st target 
set parameters for 1 drive 
jump if error 

; set drive bit 



al,not(wx2 msk dma or wx2 msk int) ; no dma & no interrupt 
ccb send ; send CCB to target controller 

ret near ; jump if error 



call subtable 



determine subtable to use 



Send 8-byte parameter block to the target controller. 
Note that the bytes are sent MSB first, then LSB 



mov di,wst_cyl+1 

call send_byte 

mov di,wst cyl+0 

call send_byte 

mov di,wst heads 

call send byte 

mov di,wst_re_wr+1 

call send byte 



; offset to byte to send 

; send msb of number of cylinders 

; LSB of number of cylinders 
; send 1 byte 

; number of heads 
; send 1 byte 

; MSB of reduced write current cyl 
; send 1 byte 
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D2BC 


BF 0003 


C 
C 




mov 


di,wst re wr+0 


; LSB of reduced write current cyl 


D2BF 


E8 D2DE R 


C 
C 
C 




call 


send byte 


; send 1 byte 


D2C2 


BF 0006 




mov 


di,wst wr pre+1 


; MSB of write precomp. cyl 


D2C5 


E8 D2DE R 


C 
C 
C 




call 


send byte 


; send 1 byte 


D2C8 


BF 0005 




mov 


di,wst wr pre+0 


; LSB of write precomp cyl 


D2CB 


E8 D2DE R 


C 
C 
C 




call 


send byte 


; send 1 byte 


D2CE 


BF 0007 




mov 


di,wst er bur 


; maximum burst length 


D2D1 


E8 D2DE R 


c 
c 
c 




call 


send byte 


; send 1 byte 


D2D4 


E8 D4AC R 




call 


wx2 cc 


; receive command completion byte 


D2D7 


72 02 


c 




jc 


par wr erx 


; jump if error prevented reception 


D2D9 


74 02 


c 
c 
c 




J'z 


ret near 1 


; jump if no error on command 


D2DB 




par wr 


erx: 






D2DB 


B4 07 


c 




mov 


ah,ec init 


; error code 


D2DD 




c 


ret near 1: 






D2DD 


C3 


c 
c 
c 
c 




ret 




; exit 


D2DE- 




send byte: 






D2DE 


E8 D4C9 R 


c 




call 


wx2 req 


; wait for data request 


D2E1 


72 05 


c 




jc 


send err 


jump if error 


D2E3 


26: 8A 01 


c 




mov 


al,es: [bx+di] 


byte to send 


D2E6 


EE 


c 




out 


dx,al 


send to wx2 


D2E7 


C3 


c 
c 
c 
c 




ret 




exit 


D2E8 




send err : 






D2E8 


58 


c 




pop 


ax 


throw away near return 


D2E9 


EB FO 


c 
c 
c 
c 
c 




jmp 


par wr erx 


error exit from write parameters 






Call: 




call i13 par rd 








c 
c 
c 
c 
c 
c 
c 






return 








Read 


parameters 








Entry 




(si) = offset to port bas 


>e for target controller 






Exit: 


(DL) 


= Number of usable drives a1 


; install time 






c 




(DH) 


= Maximum head number 








c 




(CL) 


Bits - 5 = 17d — Maximun 


i sector number 






c 




(CL) 


bits 6, 7 = Bits 8, 9 of Maximum cylinder number 






c 
c 

C ] 




(CH) 


= Bits - 7 of maximum cylinder number 


D2EB 




.13 par 


rd: 






D2EB 


E8 D4DA R 


c 




call 


subtable ; 


determine subtable to use 


D2EE 


26: 8B 07 


c 




mov 


ax,es:wst cyl[bx] ; 


number of cylinders 


D2F1 


2D 0002 


c 
c 




sub 


ax, 2 ; 


max. cylinder number 

The last cylinder is reserved. 
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D2F4 


8A E8 


D2F6 


D1 E8 


D2F8 


D1 E8 


D2FA 


24 CO 


D2FC 


OC 11 


D2FE 


8A E5 


D300 


89 46 OC 


D303 


26: 8A 67 02 


D307 


FE CC 


D309 


A0 0075 R 


D30C 


89 46 0A 


D30F 




D30F 


B4 00 


D311 


C3 



D312 

D312 AO 0074 R 

D315 EB F8 



D317 

D317 BO OB 

D319 EB 21 



C 
C 
C 
C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



mov 

shr 

shr 

and 

or 

mov 

mov 

mov 
dec 
mov 
mov 
ret no err: 
mov 
ret 



ch.al 

ax,1 

ax,1 

al, 11000000b 

al,17 

ah,ch 

a1 cx[bp],ax 

ah,es:wst heads[bx] 
ah 

al,ram_drv_cnt 
a1_dx[bp],ax 

ah,ec no err 



; temp save 

; align bits 8 & 9 of cylinder # 

mask to bits 8 & 9 of cylinder # 
maximum sector number 
bits - 7 of cylinder # 
set into activation record 

number of heads 

maximum head number 

number of usable drives at install 

set into activation record 

; no error 
; exit 



Call: 



call i13 cc 
return 



Return the completion code for the previous command to any Winchester drive. 
Entry: (ram cc) = Completion code for last command to any Winchester 
Exit: (al) = completion code for last command 

113 CC: 



mov al,ram_cc 
jmp ret no err 
page 



; completion code for last command 
; no error exit 



Call: call i13_wr 
return 

Purpose: Write sectors 

Entry: (si) = Offset to port base for target controller 

Exit: (ah) = Completion code 

i13 wr : 



mov 
jmp 



al,dma mode rd 
short io norm 



; byte to set dma chip to read from host 



Call: 



call i13_rdl 
return 



Purpose: Read sector and ECC bytes 

Entry: (si) = Offset to port base for target controller 

Exit: (ah) = Completion code 
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D31B 

D31B BO 07 

D31D 

D31D 50 

D31E BO 01 

D320 E6 63 

D322 58 

D323 8A 16 0046 R 

D327 BF 0204 

D32A EB 1D 



D32C 

D32C BO 0B 

D32E EB ED 



D330 

D330 BO 07 

D332 

D332 B2 01 

D334 EB OA 



D336 

D336 BO OB 

D338 EB F8 



C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



i13_rdl: 

io long: 
IF DMACC 



mov al,dma mode wr 



ENDIF 



push ax 

mov al,dmalong 

out p_dnacc,al 

pop ax 

mov dl,ram ccb+ccb blks 

mov di,sec size+4 

jmp short dma start 



Call: call i13_wrl 
return 



; byte to set dma chip to write to host 



; long sector dma% 

; tell dma ace that this is a long sector% 



; number of blocks to transfer 

; number of bytes per sector + 4 ECC 



Purpose: Write sector and ECC bytes 

Entry: (si) = Offset to port base for target controller 

Exit: (ah) = Completion code 
i13 wrl: 



mov 
jmp 



al,dma mode rd 
short io long 



; byte to set dma chip to read from host 



Call: 



call i13_buff_rd 
return 



Purpose: Read sector buffer 

Entry: (si) = Offset to port base for target controller 

Exit: (ah) = Completion code 



i13_buff_rd: 
mov 

buff iO: 

mov 
jmp 



al,dma mode wr 

dl,1 

short sec size norm 



; byte to set dma chip to write to host 
; transfer one block 



i13_buff_wr: 

mov al.dma mode rd 
jmp short buff io 

Call: call i13_rd 
return 

Purpose: Read sectors 



; byte to set dma chip to read from host 



ROM BIOS Listing 



ROM BIOS Listing 









C 
C 
C 
C 
C 


; Entry: (si) 


= Offset to port base for 


* target controller 








; Exit: (ah) 


= Completion code 




D33A 






i13 rd: 






D33A 


BO 


07 


C 


mov 


al,dma mode wr 


byte to set dma chip to write to host 


D33C 






C 


io norm: 






D33C 


8A 


16 0046 R 


C 


mov 


dl,ram ccb+ccb blks 


number of blocks to transfer 


D340 






C 
C 


sec size norm: 
IF DMACC 






D340 


50 




C 


push 


ax 




D341 


BO 


00 


C 


mov 


al,dmanorm 


norm sector dma% 


D343 


E6 


63 


C 


out 


p dmacc,al 


tell dma ace that this is a norm sector% 


D345 


58 




C 
C 


pop 
ENDIF 


ax 




D346 


BF 


0200 


C 
C 
C 

c 
c 


mov 


di,sec size 


numbr of bytes per sector 








; Prepare the DMA chip 




D349 






dma start: 






D349 


FA 




c 


cli 




disable interrupts 


D34A 


E6 


OB 


c 


out 


p dma+dma w mode,al 


set read or write to host 


D34C 


90 




c 


nop 




Can't handle back to% 


D34D 


90 




c 


nop 




back writes to dma controller % 


D34E 


E6 


OC 


c 
c 
c 
c 
c 


out 


p dma+dma w byte.al 


clear pointer to register byte 








; Calculate 


the 20-bit address of the 


DMA base address 


D350 


8C 


CO 


mov 


ax,es 


segment reg for i/o buffer 


D352 


B1 


04 


c 


mov 


cl,4 


count for shift 


D354 


D3 


CO 


c 


rol 


ax,cl 


multiply by 16 


D356 


8A 


E8 


c 


mov 


ch.al 


bits 16 - 19 in bits - 3 


D358 


24 


FO 


c 


and 


al.OfOh 


clear bits - 3 of address 


D35A 


03 


46 OE 


c 


add 


ax,a1 bx[bp] 


combine 16-bit offset with seg base 


D35D 


80 


D5 00 


c 


adc 


ch,0 


add carry into MS bits 


D360 


E6 


06 


c 


out 


p dma+dma w addr,al 


set bits -7 of dma address 


D362 


86 


EO 


c 


xchg 


ah.al 


bits 8 - 15 to al 


D364 


E6 


06 


c 


out 


p dma+dma w addr,al 


set bits 8 - 15 of dma address 


D366 


86 


C5 


c 


xchg 


al,ch 


bits 16 - 19 of dma address to al 


D368 


8A 


CC 


c 


mov 


cl,ah 


bits - 15 of addr in ex now 


D36A 


24 


OF 


c 


and 


al.Ofh 


mask to 4 bits 


D36C 


E6 


82 


c 
c 
c 
c 
c 
c 


out 


p dma latch, al 


set 4-bit latch for highest address 
bits 








; Calculate 


the number of bytes to be 


DMAed minus 1. 


D36E 


8B 


C7 


mov 


ax,di 


block size in bytes 


D370 


32 


F6 


c 


xor 


dh,dh 


clear upper byte 


D372 


F7 


E2 


c 
c 


mul 


dx 


number of bytes to dma: (ax) LSW 
(dx) is MSW 


D374 


2D 


0001 


c 


sub 


ax,1 


byte offset to last byte to be trans 


D377 


80 


DA 00 


c 
c 


sbb 


dl,0 


bits 16 - 23 of byte offset, 
and set ZF 


D37A 


E6 


07 


c 


out 


p dma+dma w cnt.al 


; set bits - 7 of byte count 


D37C 


86 


C4 


c 


xchg 


al.ah 


; bits 8 - 15 of count to al 
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D37E E6 07 
D380 FB 



D381 75 13 

D383 86 E0 

D385 03 C1 

D387 72 0D 



D389 


BO 


03 


D38B 


E8 


D47A R 


D38E 


72 


08 


D390 


BO 


03 


D392 


E6 


OA 


D394 


EB 


OA 


D396 






D396 


B4 


09 


D398 






D398 


C3 





D399 

D399 BO 02 

D39B E8 D47A R 

D39E 72 F8 



D3A0 

D3A0 FA 

D3A1 E4 21 

D3A3 24 DF 

D3A5 E6 21 



C 
C 
C 
C 
C 
C 
C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 



out p_dma+dma w cnt.al ; set bits 8 - 15 of byte count 

sti ; enable interrupts 

Check for DMA spanning 64k absolute address boundary 

; Are bits 16 - 23 of byte offset 0? 
note: If the block count is 0, 
then (dl) = ff. 
jump if dma more than 64kb 
byte offset to last byte transferred 
lsw of address of last byte 
transferred. 

jump if dma crosses absolute 64k 
boundary 



jnz 


dma 64k 


xchg 


ah.al 


add 


ax, ex 



JC 



dma 64k 



Start Winchester controller and DMA controller. 

mov al,wx2_msk_dma or wx2 msk int ; dma & interrupt enable 

call ccb_send ; send ccb to wx2 

jc ret_near_3 ; jump if error 

mov al , dma_mask_b_3 ; clear bit 3 of mask register 

out p_dma+dma w mask b,al ; enable channel 3 

jmp short wx2 wait 



dma_64k : 

mov 
ret near 3: 

ret 
; page 



ah,ec dma 64k 



; completion error code 
; exit 



Call: 



call i13 dma no 
return 



Purpose: Execute a command involving the Winchester controller 
but not involving DMA. 

Entry: (si) = Offset to port base for target controller 

Exit: (ah) = Completion code 

dma no: 



mov al,wx2 msk int 
call ccb send 
jc ret near 3 



; enable interrupt by wx2 
; send ccb to wx2 
; jump if error 



; Wait for the Winchester interrupt in a polling loop 
wx2 wait: 



cli 
in 
and 
out 



al,p_int+int ocwl 
al.not int ocwl m5 
p int+int ocw1,al 



disable interrupts 
read interrupt mask 
enable channel 5 interrupts 
set interrupt mask 
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D3A7 


FB 


C 
C 
C 




sti 




; enable interrupts 


D3A8 


53 




push 


bx 


;% 


D3A9 


51 


C 




push 


ex 


; save these registers % 


D3AA 


06 


C 
C 
C 




push 


es 


ijust in case % 


D3AB 


E8 D4DA R 




call 


subtable 


; which parameter table is being used% 


D3AE 


33 CO 


C 




xor 


ax, ax 


; clear ax% 


D3B0 


A0 0042 R 


C 




mov 


al,ram ccb+ccb cmd 


; which command was it?% 


D3B3 


3D 00E3 


C 




cmp 


ax,dc diag drv 


; was it a drive diagnostic command?% 


D3B6 


74 0C 


c 
c 
c 




jz 


drv diag 


; if so jump % 


D3B8 


3D 0004 




cmp 


ax,dc fd 


; was it a format drive command?% 


D3BB 


74 0E 


c 
c 
c 




jz 


drv format 


■ if so jump % 


D3BD 


26: 8A 47 09 




mov 


al.es: [bx+wst sto] 


if we're here so it must be % 






c 








a standard command% 


D3C1 


EB 0C 90 


c 
c 
c 




jmp 


continue 


continue with this dirty deed% 


D3C4 




drv 


_diag : 




% 


D3C4 


26: 8A 47 0B 


c 




mov 


al,es: [bx+wst ddto] 


get the drive diagnostic time out value / 


D3C8 


EB 05 90 


c 




jmp 


continue 


get on with it% 


D3CB 




c 


drv 


format: 






D3CB 


26: 8A 47 OA 


c 
c 
c 




mov 


al,es: [bx+wst fto] 


get the format drive time out value% 


D3CF 




continue: 






D3CF 


33 DB 


c 




xor 


bx,bx 


clear bx% 


D3D1 


8A D8 


c 




mov 


bl.al 


put time out value into bx% 


D3D3 


B9 0002 


c 




mov 


ex, 2 


;;;;Changed% /o /o% 


D3D6 


D3 E3 


c 
c 
c 
c 




shl 


bx,cl 


we are soooo fast we should% 
make this number bigger, MUCH% 








mov 


ram cc,0 


clear ram cc % 


D3D8 




c 


wait 


: more: 




% 


D3D8 


33 C9 


c 




xor 


ex, ex 


clear cx% 


D3DA 


E8 D519 R 


c 




call 


wx2 stat 


calc. address of target port 


D3DD 




c 


int 


wait: 






D3DD 


EC 


c 




in 


al,dx 


read wx2 status 


D3DE 


A8 20 


c 




test 


al,wx2 stat int 


; interrupt? 


D3E0 


75 OF 


c 




jnz 


wx2 int 


; jump if yes. 


D3E2 


A8 08 


c 




test 


al,wx2 stat busy 


; busy? 


D3E4 


74 05 


c 
c 
c 




jz 


ret time k 


jump if not busy.% 


D3E6 




fall 








D3E6 


E2 F5 


c 




loop 


int wait 


% 


D3E8 


4B 


c 




dec 


bx ~ 


% 


D3E9 


75 ED 


c 




jnz 


wait more 


% 


D3EB 




c 


ret 


time k: 




% 


D3EB 


07 


c 




pop 


es 


% 


D3EC 


59 


c 




pop 


ex 


% 


D3ED 


5B 


c 




pop 


bx 


% 


D3EE 




c 


ret 


time j: 






D3EE 


E9 D48B R 


c 
c 
c 




jmp 


ret time ; 


return time-out error 
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D3F1 




C 


wx2 int: 








D3F1 


07 


C 


pop 


es 




;% 


D3F2 


59 


C 


pop 


ex 




;% 


D3F3 


5B 


C 
C 


pop 


bx 




;% 


D3F4 


E8 D51E R 


C 
C 


call 


wx2 msk 




; calc. address of target msk 


D3F7 


BO FC 


C 


mov 


al.not (wx2 msk 


dma 


or wx2 msk int) ; disable dma & 


D3F9 


EE 


C 


out 


dx.al 




; interrupts 


D3FA 


E8 D4AC R 


C 


call 


wx2 cc 




; read completion code from wx2 


D3FD 


72 EF 


C 


jc 


ret time j 




; jump if error prevented cc reception 


D3FF 


74 97 


C 
C 
C 


jz 


ret near 3 




;jump if no error 






; The controller reported an 


error. Read status to obtain more error 






C 

c 
c 


; information. 






D401 


C6 06 0042 R 03 


mov 


ram ccb+ccb cmd 


dc stat rd ; Read status command 


D406 


BO FC 


c 
c 


mov 


al,not (wx2 msk 


dma 


or wx2 msk int) ; no dma or interrupt 
; by wx2 


D408 


E8 D47A R 


c 


call 


ccb send 




; send command to wx2 


D40B 


72 6A 


c 
c 
c 
c 
c 


jc 


stat err 




; jmp if error 






; Read the 


4-bytes of error < 


status from the controller. 


D40D 


BF 0042 R 


mov 


di, off set ram stat 


; offset to 4-byte area for status 


D410 


8C D8 


c 


mov 


ax,ds 




; ram segment 


D412 


8E CO 


c 


mov 


es,ax 




; set es for stosb instruction 


D414 


B9 0004 


c 


mov 


ex, 4 




; number of status bytes 


D417 


FC 


c 
c 
c 


eld 






; clear direction — > inc di 


D418 




stat loop: 








D418 


E8 D4C9 R 


c 


call 


wx2 req 




; wait for request 


D41B 


72 5A 


c 


jc 


stat err 




; jump if error 


D41D 


EC 


c 


in 


al.dx 




; read status byte 


D41E 


AA 


c 


stosb 






; save status byte 


D41F 


E2 F7 


c 
c 
c 


loop 


stat loop 




;jump if more status to read 


D421 


E8 D4AC R 


call 


wx2 cc 




; receive command completion byte 


D424 


72 51 


c 


jc 


stat err 




;jump if error prevented reception 


D426 


75 4F 


c 
c 
c 
c 
c 


jnz 


stat err 




;jump if error on command 






; Translate 


the controller error 


code into a BIOS error code 


D428 


8A 2E 0042 R 


mov 


ch,ram stat 




; error code 


D42C 


8A DD 


c 


mov 


bl.ch 






D42E 


81 E3 0030 


c 


and 


bx,30h 




; mask to error type field 


D432 


B1 03 


c 


mov 


cl,3 




; shift count 


D434 


D2 EB 


c 


shr 


bl,cl 




; type times 2 


D436 


8A E5 


c 


mov 


ah,ch 




; error code 


D438 


80 E4 OF 


c 


and 


ah,0fh 




; mask to error in type field 


D43B 


2E: 3A A7 D523 R 


c 


emp 


ah,cs:[bx]+offset er 


master tbl ; number of error codes in type 


D440 


73 32 


c 


jnc 


undef 




; jump if out of range 


D442 


43 


c 


inc 


bx 




; update table address 


D443 


2E: 8A 9F D523 R 


c 


mov 


bl,cs:[bx]+offset er 


master tbl ; offset to subtable 


D448 


02 DC 


c 


add 


bl.ah 




; error code subfield 
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D44A 2E: 8A A7 D523 R 
D44F 80 FD 18 
D452 75 22 



D454 8A FC 

D456 C6 06 0042 R 0D 

D45B BO FC 



D45D 
D460 
D462 
D465 
D467 
D468 
D46A 
D46D 
D46F 
D471 
D473 



E8 D47A R 
72 15 
E8 D4C9 R 
72 10 
EC 

8A D8 
E8 D4AC R 
72 08 
75 06 
8B C3 
C3 



D474 

D474 B4 BB 
D476 
D476 C3 



D477 

D477 B4 FF 

D479 C3 



D47A 

D47A E8 D51E R 

D47D EE 

D47E 4A 

D47F EE 



mov ah,cs:[bx]+offset er master tbl ; completion code 
cmp ch,erc corr ; correctable ECC error? 
jne ret near 5 ; jump if no 

ECC error corrected — > Read the error burst length 



mov 
mov 
mov 

call 

jc 

call 

jc 

in 

mov 

call 

jc 

jnz 

mov 

ret 



bh,ah ; save completion code 

ram ccb+ccb cmd,dc ecc rd ; read error burst length 

al,not (wx2 msk dma or wx2 mskjlnt) ; no dma or interrupt 

; by wx2 
ccb send ; send command to wx2 

stat err ;jmp if error 

wx2 req ;wait for request 

stat err Jump if error 

al,dx ; read error burst length 

bl,al ;save 

wx2 cc ; receive completion byte 

stat err ;jump if error prevented reception 

stat err ; jump if error on command 

ax,bx ; completion code & error burst length 

; exit 



undef : 

mov 
ret near 5: 

ret 



ah,ec undef 



; undefined error code 



; exit 



stat err: 



mov 
ret 



ah,ec stat 



; read status failed 
; exit 



Call: 



call ccb send 
return 



Send the Command Control Block to the wx2 controller 

Entry: (al) = byte to set into wx2 mask port 

(ram ccb + 0, 1, 2, 3, 4, 5) = ccb to send to wx2 
(si) = offset to port base for target controller 

Exit: (CF) = — > no error. 1 — > error 

(AH) = Error completion code, if error 
Changed: ax, ex, dx, di 
Unchanged: bx, bp, si 



ccb send: 



call wx2 msk 

out dx,al 

dec dx 

out dx,al 



calculate address of target mask port 
set wx2 mask port 
address of target select port 
select wx2 



ROM BIOS Listing 



1-73 



ROM BIOS Listing 



D480 


4A 


D481 


B9 0258 


D484 




D484 


EC 


D485 


A8 08 


D487 


75 06 


D489 


E2 F9 


D48B 




D48B 


B4 80 


D48D 


F9 


D48E 




D48E 


C3 


D48F 




D48F 


BF 0042 R 


D492 


B9 0006 


D495 


FC 


D496 




D496 


E8 D4C9 R 


D499 


72 F3 


D49B 


24 0E 


D49D 


34 0C 


D49F 


75 EA 


D4A1 


87 FE 


D4A3 


AC 


D4A4 


87 FE 


D4A6 


EE 


D4A7 


E2 ED 


D4A9 


E9 D30F R 



c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



dec dx 
mov ex, 600 
mov ex ,300 



busy wait: 
in 

test 
jnz 



ret time: 
mov 
stc 

ret near 2: 
ret 



busy: 



ccb byte 



al,dx 

al,wx2 stat busy 

busy 



loop busy wait 



ah,ec time 



; address of target status port 
; loop counter(value doubled)% 
; loop counter 



read wx2 status 

busy? 

jump if yes. 

loop if success still possible 



; completion code 
; set error flag 

; exit 



pointer to ccb 

number of bytes in a ccb 

clear direction — > inc si 



; wait for data request 
; jump if error 



and al,wx2 stat busy or wx2_stat_cd or wx2_stat_io 

xor al,wx2 stat busy or wx2 stat cd ; command byte requested? 

jnz ret time ; jump if no. 



mov 


di, off set ram ccb 


mov 


ex, 6 


eld 




call 


wx2 req 


jc 


ret near 2 



xchg di,si 

lodsb 

xchg di,si 

out dx,al 

loop ccb_byte 



ccb pointer to si & save port offset 

ccb byte to al 

restore port offset to si & save ccb 

send to wx2 

loop if more ccb bytes 



jmp 



ret no err 



Call: 



call wx2 cc 
return 



Read command completion byte 

Entry: (si) = offset to port base for target controller 

Exit: (cf) = --> no error in reading completion byte 

1 — > error, completion byte not read 

(zf) = Valid only if (cf) = 

1 — > error bit in completion byte not set 

— > error bit in completion byte set 
(ah) = 
changed: ax, dx 
unchanged: bx, ex, bp, si, di 
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D4AC 






D4AC 


E8 


D4C9 R 


D4AF 


B4 


00 


D4B1 


72 


15 


D4B3 


24 


0E 


D4B5 


3C 


0E 


D4B7 


75 


0E 


D4B9 


EC 




D4BA 


8A 


E0 


D4BC 


42 




D4BD 






D4BD 


EC 




D4BE 


24 


08 


D4C0 


75 


FB 


D4C2 


86 


C4 


D4C4 


A8 


02 


D4C6 


C3 




D4C7 






D4C7 


F9 




D4C8 






D4C8 


C3 





D4C9 




D4C9 


E8 D519 R 


D4CC 




D4CC 


EC 


D4CD 


A8 01 


D4CF 


75 07 


D4D1 


A8 08 


D4D3 


75 F7 


D4D5 


F9 


D4D6 


B4 80 



WX2 CC: 



call 
mov 

jc 

and 

cmp 

jnz 

in 

mov 
inc 



wait for request 

no error completion code 

jump if error 



wx2 req 

ah,ec no err 

ret near_4 

al,wx2 stat busy or wx2 stat_cd or wx2_stat_io 

al,wx2 stat busy or wx2 stat cd or wx2 stat io 

ret stc ; jump if not cc byte 

al,dx ;read command completion byte 



cc busy: 



in 

and 

jnz 

xchg 
test 
ret 



ah,al 
dx 



al,dx 

al,wx2 stat busy 

cc busy 

al,ah 
al,cc er 



; save completion byte 
; address of status port 



read status 

busy? 

jump if busy 

clear ah & obtain completion byte 

error? 

exit 



ret stc: 

stc 
ret near 4: 

ret 



; set carry 



; exit 



Call: call wx2_req 
return 

Wait for request signal from target WX2 controller 

Entry: (SI) = Offset to port base for target WX2 controller 

Exit: (CF) = — > no error. 1 — > error 

(al) = Last status read 

(ah) = completion code if error 

(DX) = Address of port wx2 r/w data for target wx2 controller 

unchanged: bx, ex, bp, si, di 



wx2 req : 



call wx2 stat 



req 1: 



in 


al,dx 


test 


al,wx2 stat req 


jnz 


req succ 


test 


al,wx2 stat busy 


jnz 


req 1 


stc 




mov 


ah,ec time 



; calc. status port of target controller 



read status 

data request? (& clear CF) 

jump if yes. 

busy? 

jump if yes 

; set carry to indicate error 
; error code 
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D4D8 
D4D8 4A 

D4D9 C3 



D4DA 

D4DA 33 CO 

D4DC 8E CO 



D4DE 26: C4 1E 0104 R 



D4E3 
D4E6 
D4E7 
D4EC 
D4EE 
D4F0 
D4F2 
D4F2 

D4F5 
D4F7 
D4F9 
D4FE 
D500 
D502 
D504 
D507 
D507 
D509 
D509 
D50B 



E8 D514 R 

EC 

F6 06 0043 R 20 

75 04 

DO E8 

DO E8 

25 0003 

8A E0 

E4 67 

F6 06 0043 R 20 

75 07 

24 08 

DO E8 

EB 03 90 

24 04 

OA C4 
32 E4 



D50D B1 04 

D50F D3 EO 

D511 03 D8 

D513 C3 



C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



req succ : 



dec dx 



ret 



port address for data i/o to target 

dec does not affect CF 

exit 



Call: 



call subtable 
return 



Calculate the address of the subtable to be used for the target drive 

Entry: (si) = Offset to port for target wx2 
(ram ccb+1) and ccb drv b = Drive bit 

Exit: (ES:BX) = Address of parameter subtable for target drive 



subtable: 
xor 



ax, ax 

mov es,ax 

assume es:intvec 

les bx,iv p tbl_win 

call wx2 config 

in al,dx 

test ram ccb+1, ccb drv b 

jnz drv_1 

shr al,1 

shr al,1 



drv 1: 



and 



ax, 011b 



; zero 

; set pointer to segment intvec 



; 20-bit pointer to Winchester parm. tbl 

calculate port address 

read configuration switches 

Is drive bit set? 

jump if yes. 

align switches for drive 



; mask to switches for target drive 



mov 


ah,al 






store HD switch info% 


in 


al,sw b 






auxiliary HD switch info% 


test 


ram ccb+1 


ccb 


drv b 


Is drive bit set?% 


jnz 


mdrv 1 






jump if yes% 


and 


al,08H 






isolate drive bit% 


shr 


al,1 






align for offset% 


jmp 


mseltbl 









mdrv 1: 



mseltbl: 



and 

or 
xor 

mov 
shl 
add 
ret 



al,04H 

al,ah 
ah, ah 

cl,4 

ax,cl 

bx,ax 



; isolate drive 1 bit% 

retrieve full offset /, 
; clear upper byte% 

shift count 

multiply by 16 

address of subtable into bx 

exit 



assume es: nothing 
Call: call wx2 config 
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C 
C 
C 




return 










Purpose: Calculate the address of the configuration port for the 








C 
C 
C 
C 
C 
C 
C v 




target 


controller. 










Entry 


: (Si) 


= offset to port base for target controller 








Exit: 


(dx) 


= Address of configuration port for target controller 


D514 






vx2 config: 






D514 


8D 94 


0322 


C 




lea 


dx,p wx2+wx2 r config[si 


] ; load effective address of port 


D518 


C3 




C 
C 
C v 




ret 

t: 




; exit 


D519 


w2 sta 




D519 






C wx2 reset: 






D519 


8D 94 


0321 


C 




lea 


dx,p wx2+wx2 w reset [si] 


; load effective address of port 


D51D 


C3 




C 
C 
C 
C v 




ret 






D51E 






/x2 msk 








D51E 


8D 94 


0323 


C 




lea 


dx,p wx2+wx2 w msk [si] 


load effective address of port 


D522 


C3 




C 
C 
C 

C c 
C 
C e 




ret 




exit 


D523 






;ommand 


br 


endp 




D523 






t master tbl 


label byte 




D523 


09 




C 




db 


toi 


Number of errors in type class 


D524 


08 




C 
C 
C 




db 


to tbl-er master tbl 


byte offset to sub-table 


D525 


0A 






db 


til 


Number of errors in type class 


D526 


11 




C 
C 
C 




db 


t1 tbl-er master tbl 


byte offset to sub-table 


D527 


02 






db 


t21 


Number of errors in type class 


D528 


1B 




C 
C 
C 




db 


t2 tbl-er master tbl 


byte offset to sub-table 


D529 


03 






db 


t31 


Number of errors in type class 


D52A 


1D 




C 
C 
C t 




db 


t3 tbl-er master tbl 


byte offset to sub-table 


D52B 






tbl: 








D52B 


00 




C 




db 


ec no err 


no error 


D52C 


20 




c 




db 


ec cntlr 


no index pulse 


D52D 


40 




c 




db 


ec seek 


no seek complete 


D52E 


20 




c 




db 


ec cntlr 


write fault 


D52F 


80 




c 




db 


ec tine 


drive not ready 


D530 


00 




c 




db 


ec no err 


not used 


D531 


20 




c 




db 


ec cntlr 


track not found 


D532 


00 




c 




db 


ec no err 


not used 


D533 


40 




c 




db 


ec seek 


buffered seek in progress 


= 0009 




c t 
c 
c t 


01 


equ 


$-t0 tbl 




D534 






1 tbl: 








D534 


10 




c 




db 


ec ecc un 


ECC error in id field 


D535 


10 




c 




db 


ec ecc un 


; uncorrectable ecc error 


D536 


02 




c 




db 


ec addr mark 


address mark not found 
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D537 00 

D538 04 

D539 40 

D53A 00 

D53B 00 

D53C 11 

D53D OB 
= 000A 

D53E 

D53E 01 
D53F 02 
= 0002 

D540 

D540 20 
D541 20 
D542 10 
= 0003 

D543 38 35 2F 30 31 2F 

32 35 
D54B 

CEF7 



CEF7 



D550 



C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



til 



db 
db 
db 
db 
db 
db 
db 
equ 



t2 tbl: 



t21 



t3 tbl: 



t31 



db 
db 
equ 



db 
db 
db 
equ 

db 



ec no err 
ec sec not fnd 
ec seek 
ec no err 
ec no err 
ec ecc cor 
ec bad trk 
$-t1 tbl 



ec be 

ec addr mark 

$-t2 tbl 



ec cntlr 
ec cntlr 
ec ecc un 
$-t3_tbl 

" 85/01/25" 



not used 

sector not found 

seek error 

not used 

not used 

ecc error corrected 

bad track 



; invalid command 

; illegal disk address 



RAM failure 

ROM checksum error 

ECC subsystem failure 



; release date 



code ends 
end 
code ends 
include graph. asm 



Filename: graph. six 

This module includes the four graphics functions for INT 10h. 



page 



; INT 


10h Graphics Support 








; MUSt 


preserve bx, ex, dx and 


return values 


in 


ax 


; All 


other registers are saved 


and restored 


by 


video dispatcher. 


; Entered with the following in 


registers: 








al, bx, ex, dx intact 


(set by INT 


10 


mvoker) 




ah = v mode 









code segment public 'ROM' 

assume cs.-code, ds:data, es : v ram, ss : nothing 

ORG 0D550H 

; Attempt to force a vacant space in the code for the hdu % 



page 
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D550 



D550 


52 




D551 


51 




D552 


50 




D553 


E8 


D595 R 


D556 


8A 


C4 


D558 


26 


22 05 


D55B 


5A 




D55C 


FE 


C1 


D55E 


80 


FE 05 


D561 


7F 


02 


D563 


FE 


C1 


D565 






D565 


D2 


CO 


D567 


59 




D568 


5A 




D569 


C3 





D56A 



Read Dot 



function code = ODh 



reads a pixel from the indicated location returning its value, 
valid in graphics modes only. 



Input: 



AH = CRT Mode 

DX = row (0..199 in Med. & Hi-Res., 0..399 in Ultra Res Mode) 

CX = column (0..319 in Med, 0..639 in Hi & Ultra Res. Modes) 



Output: 

AL = dot value read 

AH = mask of pixel in byte (from g_addr) 

Saved: BX, CX, DX (Video dispatcher saves the rest) 



grf read dot proc near 



push 
push 

push 

call 

mov 

and 

pop 

inc 

cmp 

jg 

inc 

gjsfy_dot: 

rol 

pop 
pop 
ret 



dx 
ex 

ax 

g addr 

al,ah 

al.byte ptr es : [di] 

dx 

cl 

dh,5 

g_jsfy_dot 

cl 

al.cl 

ex 
dx 



save registers 

save crt mode (high byte) 

compute address & mask 

copy mask 

AND with byte containing pixel 

dh = crt mode 

prep for wraparound left (B & W) 

color? 

jump if not 

prep for wraparound left (color) 

right justify pixel 

restore registers 



grf read dot endp 
page 



Write Dot 



function code = OCh 



writes a pixel, with the indicated value, at the indicated location, 
valid in graphics modes only. 



Input: 



AL = dot value to write (1 or 2 bits depending on mode, 
right justified). Bit 7 = 1 specifies X0R the value 
with the pixel at DX, CX 

AH = CRT Mode 
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D56A 



D56A 


52 


D56B 


51 


D56C 


50 


D56D 


E8 D595 R 


D570 


26: 8A 05 


D573 


5A 


D574 


52 


D575 


0A D2 


D577 


78 06 


D579 


F6 D4 


D57B 


22 C4 


D57D 


F6 D4 


D57F 




D57F 


FE C1 


D581 


80 FE 05 


D584 


7F 02 


D586 


FE C1 


D588 




D588 


D2 CA 


D58A 


22 D4 


D58C 


32 C2 


D58E 


26: 88 05 


D591 


58 


D592 


59 


D593 


5A 


D594 


C3 



D595 



C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



DX = row (0-399) 
CX = column (0-639) 



(the actual value depends on the mode) 
(the values are not range checked) 



Saved: AX, BX, CX, DX (Video dispatcher saves the rest) 



grf write dot proc near 



push 
push 
push 

call 
mov 
pop 
push 
or 
js 
not 
and 
not 
g xorbit: 
inc 
cmp 

jg 

inc 
g align dot: 
ror 
and 
xor 
mov 

pop 
pop 
pop 
ret 



dx 
ex 
ax 



preserve working registers 



g_addr ; compute address & mask 

al,byte ptr es : [di] ; fetch byte from video memory 



dx 

dx 

dl,dl 

g xorbit 

ah 

al,ah 

ah 

cl 

dh,5 

g align dot 

cl 



get vjiode & dot value to write 

resave 

is the XOR bit set? 

jump if yes 

invert mask 

clear bits for new pixel 

restore mask for later 

prep for wraparound right (b&w) 

color ? 

jump if no 

prep for wraparound right (color) 

align new pixel 

strip off non-pixel bits (xor bit, etc) 

OR or XOR in new pixel depending on xor bit 



dl,cl 
dl,ah 
al.dl 
byte ptr es : [di],al ; update video memory 



ax 
ex 
dx 



restore registers 



grf write dot endp 
page 



This subroutine determines the video RAM byte location 

of the indicated row column value. The current graphics mode 

is taken into account. 



INPUT: 



OUTPUT: 



AH = current graphics mode 
DX = row value (0-399) 
CX = column value (0-639) 



DI = byte address of pixel location in video ram 
AH = mask of pixel in byte 



ROM BIOS Listing 



ROM BIOS Listing 



D595 



D595 


51 




D596 


BD 


0001 


D599 


8B 


CD 


D59B 


80 


FC 40 


D59E 


72 06 


D5A0 


BD 


0002 


D5A3 


B9 


0003 


D5A6 






D5A6 


33 


FF 


D5A8 


23 


CA 


D5AA 


74 


06 


D5AC 






D5AC 


81 


C7 2000 


D5B0 


E2 


FA 



D5B2 




D5B2 


57 


D5B3 


8B FA 


D5B5 


8B CD 


D5B7 


D3 EF 


D5B9 


8B D7 


D5BB 


B9 0406 


D5BE 


D3 E7 


D5C0 


8A CD 


D5C2 


D3 E2 


D5C4 


03 FA 


D5C6 


59 


D5C7 


03 F9 


D5C9 


5A 



D5CA B9 0703 

D5CD 80 FC 05 

D5D0 7F 03 

D5D2 B9 0302 
D5D5 



CL = # of bits from left end of byte to leftmost bit in mask 



DESTROYED: 

AL, CX, DX, BP 



g addr 



proc 



near 



convert row-count to a "mod 4" value; 
multiply it by 2000H for offset to start of v_ram subarea 



g skp 1: 



g skp_2: 



push 


ex 


mov 


bp,1 


mov 


cx,bp 


cmp 


ah, 64 


jb 


g_skp_1 


mov 


bp,2 


mov 


cx,3 


xor 


di,di 


and 


cx,dx 


J"z 


g skp 3 


add 


di,2000H 


loop 


g skp 2 



save column count 

shift count; assume not 640x400 

multiplier; assume not 640x400 

video mode 64 or 72? 
-no: jmp 

-yes ; change shift count 
-yes: change multiplier 



init offset amount 

get least sig. bit(s) from row count 

jmp if nothing to add 
mini-multiply loop 

add v ram sub-area size 

do it again (maybe) 



add bytes for the row coordinate 'to the offset into the v_ram subarea 



g skp 3: 



push 


di 


mov 


di,dx 


mov 


cx,bp 


shr 


di,cl 


mov 


dx,di 


mov 


cx,0406H 


sal 


di.cl 


mov 


cl,ch 


sal 


dx,cl 


add 


di,dx 


pop 


ex 


add 


di,cx 


pop 


dx 



find column offset 



mov 


cx,703H 


cmp 


ah, 5 


jg 


g skp 4 


mov 


cx,302H 



temp, store offset 

DX<— row count 

CX<— mode-related shift val 

get #rows into a v ram subarea 

save a copy for a moment 
mult, di by 80 [rows— >byte offset] 
[fast multiply- 
by-80] 

#subarea byte offset for this row 

retrieve subarea beginning's offset 
offset from start of v ram 
restore column count 



initialize for black & white 
color ? 

CX = 703H (black & white) 
CX = 302H (color) 



g skp 4: 
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D5D5 22 EA 
D5D7 D3 EA 



D5D9 03 FA 



D5DB 


80 F9 03 


D5DE 


74 02 


D5E0 


DO E5 


D5E2 




D5E2 


86 CD 


D5E4 


B4 80 


D5E6 


D2 EC 


D5E8 


80 FD 03 


D5EB 


74 06 


D5ED 


8A C4 


D5EF 


DO E8 


D5F1 


OA EO 


D5F3 




D5F3 


C3 



D5F4 



C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



CL = shift count to divide column by pixels per byte . . . 
3 for b&w (divide by 8), 2 for color (divide by 4) 
CH = remainder's mask during division (7 for b&w , 3 for color) 
DX = column 
DI = address to column of requested row 



and ch,dl 
shr dx,cl 



get division's remainder in CH 
perform division 



DX = quotient = column's byte offset from start of row 
CH = remainder (= pixel's offset into byte) 



add 

NOW: 



di,dx 



DI = pixel's byte address 



DI = address of byte containing the pixel 
CH = pixel offset into byte (remainder) 
CL = 3 (black & white) or 2 (color) 



cmp 

J'e 
shl 

g bitmask: 
xchg 
mov 
shr 
cmp 
je 
mov 
shr 
or 

g_skp_5 : 

ret 

g_addr endp 

page 



cl,3 

g_bitmask 

ch,1 



cl,ch 

ah,80H 

ah,cl 

ch,3 

g_skp_5 

al,ah 

al,1 

ah,al 



black & white? 

jump if yes 

color: convert to bit offset 



load CL, preserve "mode" 

set high bit in byte 

mask pixel's leftmost bit 

black & white? 

jump if yes 

color: create 2-bit mask 



DI = byte address, AH = pixel mask, 
CL = bit offset: pixel's leftmost bit 



Scroll Up In Graphics Mode 

Scroll up the number of lines specified within the specified screen 
area (window). 



Input: 



AL = number of lines to be scrolled up ( zero 

means clear the window) 
BH = fill pattern to be used 

CH,CL = upper left corner of window in which to scroll 
DH,DL = lower right corner of window in which to scroll 
DS = data segment 
ES = graphics refresh ram segment 



1-82 



ROM BIOS Listing 



ROM BIOS Listing 



D5F4 



D5F4 


53 




D5F5 


51 




D5F6 


52 




D5F7 


BD 


0050 


D5FA 


50 




D5FB 


8B 


C1 


D5FD 


E8 


D8E1 R 


D600 


8B 


F8 


D602 


06 




D603 


1F 




D604 


2B 


D1 


D606 


81 


C2 0101 


D60A 


58 




D60B 


B3 


02 


D60D 


8A 


CB 


D60F 


80 


FC 40 


D612 


72 


06 


D614 


B3 


04 


D616 


74 


02 


D618 


DO 


F9 


D61A 






D61A 


D2 


E0 


D61C 


D2 


E6 


D61E 


8B 


C8 


D620 


80 


FD 06 


D623 


7D 


04 


D625 


D1 


E7 


D627 


DO 


E2 


D629 






D629 


81 


E1 OOFF 


D62D 


74 


3C 


D62F 


8B 


C1 


D631 


8A 


E9 


D633 


86 


F5 


D635 


8B 


F7 


D637 


B1 


04 


D639 


D3 


EO 


D63B 


03 


FO 



Saved: BX, CX, DX (Video dispatcher saves the rest) 



grf graphics up proc near 



push 


bx 


push 


ex 


push 


dx 


eld 




mov 


bp,80 


push 


ax 


mov 


ax, ex 


call 


g curs off 


mov 


di,ax 


push 


es 


pop 


ds 


sub 


dx,cx 


add 


dx 7 101H 



pop 

mov 

mov 

emp 

jb 

mov 

je 

sar 

g tst mod: 
sal 
sal 
mov 
emp 

jge 

sal 
sal 

g_set_up : 
and 



bl,2 

cl.bl 

ah T 64 

g tst mod 

bl,4 

g tst mod 

cl,1 



al.cl 

dh.cl 

cx,ax 

ch,6 

g set_up 

di,1 

dl,1 



save 



the 



registers 

; dir. flag = increment (from v_scrl up) 
; offset to next scanline (CLD => +80) 

save mode, # rows to scroll 
compute address of window's 

upper left corner 
save in DI for string instructions 

; set DS to video ram for string inst. 



; compute window's dimensions 
; DH = height, DL = width 

; AH = mode, AL = # rows to scroll 

; # interlace areas = 2 for modes 4,5,6 
;# scanlines per i.a. = 4 for modes ~72 

jump if mode = 4,5,6 

# interlace areas = 4 for modes 64 & 72 
jump if mode = 64 

# scanlines per i.a. = 2 for mode 72 



convert number of rows to number of 

scanlines per interlace area 
CH = mode, CL = # scanlines to scroll 
are we in a medium resolution mode ? 
jump if no 
double number of bytes per character 



; get address of lines to scroll in refresh ram memory 
cx,00FFH ; CX = # of scanlines to scroll per i.a. 

g filler ;if zero, go fill all of window 



mov ax,cx 
mov ch,cl 
xchg dh,ch 



mov 
mov 
sal 
add 



si,di 
cl,4 
ax,cl 
si, ax 



make DH = # scanlines to fill per i.a. 
AX = # scanlines to scroll " " 
CH = # scanlines in window " " 

compute address of scanline to be 
scrolled to top of window: 
<window's address) + 
(<# scanlines to scroll per i.a.> * 
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D63D D1 EO 

D63F D1 EO 

D641 03 F0 

D643 8A E5 

D645 2A E6 

D647 33 C9 



D649 



D649 



D649 


56 


D64A 


57 


D64B 


53 


D64C 




D64C 


57 


D64D 


56 


D64E 


8A CA 


D650 


F3/ A4 


D652 


5E 


D653 


5F 


D654 


81 C7 2000 


D658 


81 C6 2000 


D65C 


FE CB 


D65E 


75 EC 


D660 


5B 


D661 


5F 



c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



sal 


ax,1 


sal 


ax,1 


add 


si, ax 


mov 


ah,ch 


sub 


ah,dh 



xor ex, ex 
; jmp short g scroller 
grf graphics up endp 
page 



; <# bytes per scanline = 80>) 

; compute # of scanlines per i.a. 
; to be moved 

; CH = for REP counter 

; go scroll up and fill 



; Scroll rows in 


graphics refresh memory 


; Input: 




; AH = 


Number of scanlines per interlace area to be moved 


; BL = 


Number of interlace areas 


; CH = 





; DI = 


Destination scanline address of first byte to fill 


; SI = 


Source scanline address of first byte to fill 


; DL = 


Number of bytes to fill in each scanline 


; BP = 


offset to next scanline (+/- 80) 


; Output: 




; DI = 


address of first byte to be filled 


; AH = 





; BL,BH,CH,DL,DH 


BP preserved 



g scroller 



push 
push 
push 



proc 

si 
di 

bx 



near 



save original source 

and destination addresses 
save interlace areas count (BL) 



g m area: 



; Move Interlace Areas Loop 



push 

push 

mov 

rep 

pop 

pop 

add 

add 

dec 

jnz 

pop 
pop 



di 

si 

cl.dl 

movsb 

si 

di 

di,2000H 

si,2000H 

bl 

g_m area 

bx 
di 



save interlace area 

addresses 
count of bytes to be moved 
move the scanline 
restore interlace area 

addresses 
next interlace area 

addresses 
loop to move one scanline in 

each interlace area 

; restore interlace areas count (BL) 
; restore original source 
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D662 5E 

D663 03 FD 

D665 03 F5 

D667 FE CC 

D669 75 DE 



D66B 



D66B 



D66B 


8A C7 


D66D 




D66D 


57 


D66E 


52 


D66F 




D66F 


57 


D670 


8A CA 


D672 


F3/ AA 


D674 


5F 


D675 


03 FD 


D677 


FE CE 


D679 


75 F4 


D67B 


5A 


D67C 


5F 


D67D 


81 C7 2000 


D681 


FE CB 


D683 


75 E8 


D685 


5A 



c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



pop si 

add di,bp 

add si,bp 

dec ah 

jnz g_scroller 

; jmp short gjfiller 

g scroller endp 

page 



and destination addresses 
address next scanline in 

each interlace area 
loop to move " all" scanlines in 

each interlace area 

; now fill in the gap 



; Fill rows in 


graphics 


refresh memory with the fill pattern 




; Input: 










BL = 


Number of interlace areas 






BH = 


Fill pattern to be used 






CH = 









DL = 


Number of bytes to fill in each scanline 






DH = 


Number of scanlines to fill in each interlace area 






DI = 


Destination scanline address of first byte to fill 






BP = 


offset to next scanline (+/- 80) 




; Output 










AL = 


fill pattern 






AH = 















g filler 



mov 



proc near 
al.bh 



; AL = fill pattern for STOSB instruction 



g f i lp : 



; Fill Interlace Areas Loop 



push 
push 



g f s lp : 



push 

mov 

rep 

pop 

add 

dec 

jnz 

pop 
pop 
add 
dec 
jnz 

pop 



di 
dx 

; Fill Scanlines Loop 

di 

cl,dl 

stosb 

di 

di,bp 

dh 

g_f_s_lp 

dx 

di 

di,2000H 

bl 

g_f_i_lp 

dx 



; save interlace area address 
; save scanlines count (DH) 



save scanline address 

count of bytes to fill in scanline 

fill scanline 

restore scanline address 

next scanline in interlace area 

fill an interlace area 



restore scanlines count (DH) 
restore interlace area address 
next interlace area address 
fill next interlace area 



; restore 



ROM BIOS Listing 



1-85 



ROM BIOS Listing 



D686 59 

D687 5B 

D688 C3 

D689 



D689 

D689 53 

D68A 51 

D68B 52 



D68C BD FFBO 

D68F 50 

D690 8B C2 

D692 E8 D8E1 R 

D695 8B F8 

D697 06 

D698 1F 

D699 2B D1 

D69B 81 C2 0101 

D69F 58 



D6A0 


B3 02 


D6A2 


8A CB 


D6A4 


80 FC 40 


D6A7 


72 06 


D6A9 


B3 04 


D6AB 


74 02 



c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 



pop ex 
pop bx 
ret 



the 

registers 
exit scroll routine 



g_filler 
page 



endp 













; Scroll Down 


In Graphics Mode 






; Scroll 


down the 


number of lines 


specified within the specified screen 


; area (window). 








; Input: 












AL 


number of lines 
means clear the 


to be scrolled 
window) 


up ( zero 




BH 


fill pattern to 


be used 






CH,CL = 


upper left corner of window in 


which to scroll 




DH,DL = 


lower right corner of window ir 


i which to scroll 




DS 


data segment 








ES 


graphics refresl" 


ram segment 




; Saved: 


BX, CX, 


DX (Video dispatcher saves the 


rest) 



phics c 


Jown proc near 


push 


bx ; 


push 


CX ; 


push 


dX ; 


std 




mov 


bp,-80 ; 


push 


ax ; 


mov 


ax,dx ; 


call 


g curs off ; 


mov 


di,ax ; 


push 


es ; 


pop 


ds 


sub 


dx,cx ;( 


add 


dx,101H ; 



save 



the 



pop 

mov 

mov 

emp 

jb 

mov 

je 



ax 

bl,2 
cl.bl 
ah, 64 
g_cmp_mod 
bl,4 ~ 
g emp mod 



registers 

dir. flag = decrement (from v scrl dn) 
offset to next scanline (STD => -80) 

save mode, # rows to scroll 
compute address of window's 

lower right corner 
save in DI for string instructions 

set DS to video ram for string inst. 



compute window's dimensions 
DH = height, DL = width 

; AH = mode, AL = # rows to scroll 

;# interlace areas = 2 for modes 4,5,6 
;# scanlines per i. a. = 4 for modes ~72 

jump if mode = 4,5,6 

# interlace areas = 4 for modes 64 & 72 

jump if mode = 64 
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D6AD DO F9 



D6AF 
D6AF 
D6B1 
D6B3 
D6B6 
D6B8 
D6BA 
D6BC 

D6BD 
D6BD 
D6C0 
D6C2 
D6C5 
D6C7 
D6C9 
D6CD 



D6D5 
D6D7 
D6D9 
D6DB 
D6DD 
D6DF 
D6E1 



D2 EO 
D2 E6 
80 FC 06 
7D 05 
D1 E7 
DO E2 
47 



BE 0050 
D3 E6 
83 EE 50 
03 FE 
8B C8 

81 E1 OOFF 
74 9C 



D6CF 8B C1 
D6D1 8A E9 
D6D3 86 F5 



8B F7 
B1 04 
D3 EO 
2B FO 
D1 EO 
D1 EO 
2B FO 



D6E3 8A E5 

D6E5 2A E6 

D6E7 33 C9 

D6E9 E9 D649 R 

D6EC 



D6EC 



sar 

g cmp mod: 
sal 
sal 
cmp 

jge 

sal 
sal 
inc 

g setdown: 
nov 
sal 
sub 
add 
mov 
and 
]z 

mov 
mov 
xchg 

mov 
mov 
sal 
sub 
sal 
sal 
sub 



cl,1 



al.cl 

dh.cl 

ah, 6 

g setdown 

di,1 

dl,1 

di 



; # scanlines per i.a. = 2 for mode 72 



convert number of rows to number of 

scanlines per interlace area 
are we in a medium resolution mode ? 
jump if no 
double number of bytes per character 

; address last byte in bottom row 



; get address of lines to scroll in refresh RAM memory 



si, 80 
si,cl 
si, 80 
di,si 
ex, ax 
cx,00FFH 
g filler 

ax, ex 
ch,cl 
dh,ch 

si.di 

cl,4 

ax,cl 

si, ax 

ax,1 

ax,1 

si, ax 



mov ah,ch 
sub ah,dh 

xor ex, ex 

jmp g_scroller 

grf graphics down endp 

page 



; address bottom scanline in i.a. 



CH = mode, CL = # scanlines to scroll 
CL = # of scanlines to scroll per i.a. 
if zero, go fill all of window 

make DH = # scanlines to fill per i.a. 
AX = # scanlines to scroll " " 
CH = # scanlines in window " " 

compute address of scanline to be 
scrolled to top of window: 
<window's address) - 
(<# scanlines to scroll per i.a.> * 
<# bytes per scanline = 80>) 



; compute # of scanlines per i.a. 
; to be moved 

; CH = for REP counter 

; qo scroll down and fill 



graphics read - read the character at the current cursor 

position on the screen, or zero. 
Input: none 

Output: AL = character at the current cursor position or zero 

Saved: BX, CX, DX (video dispatcher saves the rest) 



grf graphics read 



proc 



near 
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D6EC 


53 


D6ED 


51 


D6EE 


52 


D6EF 


8A DC 


D6F1 


A1 0050 R 


D6F4 


E8 D8E1 R 


D6F7 


8B F0 


D6F9 


8A C3 


D6FB 


B9 0004 


D6FE 


33 DB 


D700 


3C 40 


D702 


72 08 


D704 


B3 04 


D706 


74 04 


D708 


D1 F9 


D70A 


33 DB 


D70C 




D70C 


C5 3E 0084 R 


D710 


C5 79 06 


D713 


1E 


D714 


06 


D715 


1F 


D716 


07 


D717 


D1 E3 


D719 


83 C3 08 


D71C 


2B E3 


D71E 


8B EC 


D720 


BA 0002 


D723 


3C 06 


D725 


7C 35 


D727 


74 03 


D729 


BA 0004 


D72C 




D72C 


51 


D72D 


56 


D72E 


8B CA 


D730 




D730 


8A 04 


D732 


88 46 00 


D735 


45 


D736 


81 C6 2000 


D73A 


E2 F4 



D73C 5E 



C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



push 
push 
push 

mov 
mov 
call 
mov 

mov 

mov 

xor 

cmp 

jb 

mov 

je 

sar 

xor 



g Ids r-. 



Ids 

Ids 

push 

push 

pop 

pop 

sal 
add 



sub 
mov 
mov 
cmp 
jl 



bx 
ex 
dx 

bl,ah 

ax, word ptr ds : 
g curs off 
si, ax 

al,bl 
ex, 4 
bx,bx 
al,64 
g_lds_r 
bl,4 ~ 
g Ids r 
cx,1 
bx,bx 



save 



the 



registers 



; BL saves v mode 



v_curpos] 



; get address of cursor position 
; save as a pointer for later 

AL saves v mode 

# scanlines per i. a. = 4 for modes ~72 
make BX=0 for modes 4,5,6 

jump if mode = 4,5,6 
make BX=4 for mode 64 
jump if mode = 64 

# scanlines per i. a. = 2 for mode 72 
make BX=0 for mode 72 



; (BX= font pointer offset in master table) 
di,dword ptr ds : [master_tbl_ptr] ; get pointer to master table 
di,dword ptr ds : [di+6][bx] ; get pointer to font's 1st 128 chars 
; XCHG DS,ES 

; DS:SI -> grafix ram read location ??? 
; ES:DI -> font's 1st 128 characters 

; make BX=8 for modes 4,5,6,72 
; BX=16 for mode 64 
number of font bytes per character) 



ds 
es 
ds 
es 

bx,1 
bx,8 
;(BX= 



sp,bx 
bp.sp 
dx,2 
al,6 

g rd med 
g rdloop 



get stack space for font bytes 

save pointer to stack space 

number of interlace areas (modes 4,5,6) 

check graphics mode 

jump if in medium resolution mode (4,5) 

jump if in 640x200 resolution mode (6) 



we're in super resolution (640x400) mode (64 & 72) 



dx,4 



g rdloop : 



g rd ia 



push 


ex 


push 


si 


mov 


cx,dx 


mov 


al,[si] 


mov 


[bp],al 


inc 


bp 


add 


si,2000H 


loop 


g rd ia 



pop 



; number of interlace areas 

; Read Scanlines Loop for both 640x200 and 640x400 

save # of scanlines per interlace area 
save current addr. in interlace area #1 
init. counter: # of interlace areas 

; Read Interlace Area Loop 

; get byte from grafix ram 
; save on reserved stack 
;bump reserved stack address 
address next interlace area 



; restore interlace area #1 address 



ROM BIOS Listing 



ROM BIOS Listing 



D73D 


83 


C6 50 


D740 


59 




D741 


E2 


E9 


D743 


83 


FA 04 


D746 


75 


49 


D748 


8B F5 


D74A 


2B 


F3 


D74C 


36 


F6 04 80 


D750 


74 


3F 


D752 


8B 


CB 


D754 






D754 


36 


F6 14 


D757 


46 




D758 


E2 


FA 


D75A 


EB 


35 


D75C 






D75C 


D1 


E6 


D75E 






D75E 


51 




D75F 


56 




D760 


B9 0002 


D763 






D763 


51 




D764 


8B 


04 


D766 


86 


E0 


D768 


F7 


DO 


D76A 


8B 


DO 


D76C 


D1 


E2 


D76E 


23 


DO 


D770 


F7 


D2 


D772 


32 


CO 


D774 


B9 0008 


D777 






D777 


D1 


EA 


D779 


D1 


EA 


D77B 


DO 


D8 


D77D 


E2 


F8 


D77F 


88 


46 00 


D782 


45 




D783 


81 


C6 2000 


D787 


59 




D788 


E2 


D9 


D78A 


5E 




D78B 


83 


C6 50 


D78E 


59 




D78F 


E2 


CD 



D791 



add 
pop 
loop 



si ,80 

ex 

g rdloop 



emp dx,4 
jne g matchb 
mov si,bp 
sub si,bx 

test byte ptr ss : [si],80H 
jz g matchb 
mov cx,bx 
g unreverse video loop: 

not byte ptr ss:[si] 
inc si 

loop g unreverse video loop 
jmp short g matchb 



; address next scanline in each i.a. 
; restore # of scanlines counter 



are we in mode 64 or 72 (640x400)? 
jump if no (reverse video not allowed) 
point to first byte in stack save area 

is upper left bit of char = or 1 ? 
jump if (not reversed video) 
number of char bytes counter 

; reverse the reversed byte for matching 
; address next char byte 

; now find the char in the font table 



g rd med: 
sal 

g medget: 

push 
push 
mov 

g med_ia: 

push 

mov 

xchg 

not 
mov 
shl 
and 
not 

xor 
mov 
g med bit: 
shr 
shr 
rcr 
loop 

mov 
inc 
add 
pop 
loop 

pop 
add 
pop 
loop 

g matchb: 



; Read Medium Resolution 
si,1 ; double graf ram pointer (2 bytes/char) 

; Get font bytes in medium resolution (320 X 200) mode 
; save # scanlines per i.a. counter 
; save current scanline address 
; init. # interlace areas counter 



ex 
si 
ex, 2 

ex 

ax, [si] 

ah,al 

ax 

dx,ax 

dx,1 

dx,ax 

dx 

al.al 
ex, 8 

dx,1 
dx,1 
al,1 
g med bit 

[bp],al 

bp 

si,2000H 

ex 

g med_ia 

si 

si, 80 
ex 
g medget 



save i.a. counter 

get 2 bytes of 1 char from video memory 

order them logically 

; map background pixels to 0, 
; foreground pixels to 1 



; clear result accumulator 
; prepare to process 8 bits 

ignore unused bit 

load carry with mapped pixel value 
rotate it into result accumulator 
process next bit of character 

save font byte on reserved stack 
bump reserved stack pointer 
address next interlace area 
restore i.a. counter 
process next i.a. of character 

restore scanline address 

address next scanline 

restore scanlines counter 

process next scanline of character 



; Match Font Byte: find character 
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D791 


2B EB 


D793 


8B F5 


D795 


32 CO 


D797 




D797 


16 


D798 


1F 


D799 


B9 0080 


D79C 




D79C 


51 


D79D 


8B CB 


D79F 


57 


D7A0 


56 


D7A1 


F3/ A6 


D7A3 


5E 


D7A4 


5F 


D7A5 


59 


D7A6 


74 2D 


D7A8 


03 FB 


D7AA 


FE CO 


D7AC 


E2 EE 



D7AE 0A CO 

D7B0 74 23 

D7B2 83 FB 10 

D7B5 74 08 

D7B7 8E D9 

D7B9 C4 3E 007C R 

D7BD EB OC 

D7BF 

D7BF 2E: 8E 1E E538 R 

D7C4 C5 3E 0084 R 

D7C8 C4 7D OE 

D7CB 

D7CB 8C CO 



D7CD 
D7CF 
D7D1 
D7D3 



OB C7 
74 04 
BO 80 
EB C2 



D7D5 

D7D5 03 E3 

D7D7 5A 

D7D8 59 

D7D9 5B 

D7DA C3 



C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 



g f cont 



sub 


bp,bx 


mov 


si,bp 


xor 


al,al 


push 


ss 


pop 


ds 



mov 



ex, 128 



g f mach: 



; point to first byte in stack save area 
; pointer to font bytes from graf ram 
; index to font bytes (start with 0) 
; Get Font Byte Match Control 

; setup string compare registers 

; DS:SI -> stack area w/grafix ram bytes 

; loop control = 1st 128 ascii chars. 

; Get Font Byte Match Loop 

save loop counter 

counter for string compare 

save font pointer 

save pointer to stack save area 

screen bytes match font bytes ? 

retrieve pointer to stack save area 

retrieve pointer to fonmt byte table 

restore loop counter 

if match go to exit code 

address next font in table 

bump ascii index 

go back if more chars to search for 



no match in first 128 ascii character set - look for user's second set 

have we scanned both 128 char 1/2s ? 

jump if yes 

are we in mode 64 ? 

jump if yes 

mov ds,cx ; move zero to segment register 

assume ds : abs0 

les di,dword ptr ds : [intlFlocn] ; get pointer to 2nd half of 8x8 font 

assume ds:data 

jmp short g_test_addr ; see if font is really there 



push 


ex 


mov 


cx,bx 


push 


di 


push 


si 


repe 


empsb 


pop 


si 


pop 


di 


pop 


ex 


je 


g f exit 


add 


di,bx 


inc 


al 


loop 


g f mach 



or 


al,al 


jz 


g f exit 


emp 


bx, 16 


je 


g 8x16 2 



g_8x16_2: 

mov 
Ids 
les 

g_test_addr : 
mov 
or 

jz 
mov 



; get 2nd half of 8x16 font 
ds,word ptr cs : [set ds word] ; set DS to data segment 
di,dword ptr ds : [master tbl ptr] ; get pointer to master table 
di,dword ptr ds : [di+14] ; get pointer to 2nd half of 8x16 font 



ax,es 
ax,di 
g f exit 
al,128 



jmp short g f cont 



check if font table is set up 
if zeros, then no user font table 
no table, just go to exit 
offset to 2nd 1/2 of ascii set 
go back to try rest of ascii set 



g f exit: 



add 


sp,bx 


pop 


dx 


pop 


ex 


pop 


bx 


ret 





; either the character is found, or al = 
; restore stack pointer 
; restore 

the 

registers 



1-90 



ROM BIOS Listing 



ROM BIOS Listing 



D7DB 



D7DB 

D7DB 53 

D7DC 51 

D7DD 52 

D7DE 8B DO 

D7E0 A1 0050 R 

D7E3 E8 D8E1 R 

D7E6 8B F8 

D7E8 80 FA 80 

D7EB 72 26 



D7ED 80 EA 80 

D7F0 80 FE 40 

D7F3 75 09 

D7F5 C5 36 0084 R 

D7F9 C5 74 0E 

D7FC EB 08 

D7FE 

D7FE 33 F6 

D800 8E DE 

D802 C5 36 007C R 



D806 

D806 8C D8 

D808 OB C6 

D80A 75 1D 



grf graphics read 
page 



endp 



graphics write - write a character to the screen 

Input: AL = character to write 

BL = Foreground color attribute 

bit 7 = 1: xor character with graphics ran 
CX = number of characters to write 
DS = data segment 
ES = graphics ram segment 

Saved: BX, CX, DX (video dispatcher saves the rest) 



grf graphics write 



proc 



near 



push 


bx 


push 


CX 


push 


dx 



save 



the 



registers 



mov dx,ax ; DH= crt mode, DL= char to write 

; locate beginning of character in graphics ram 

mov ax, word ptr ds : [v curpos] 

call g curs off ; get address of cursor position 

mov di,ax ; pointer to graphics location 

; determine if character is from 1st or 2nd half of table 

cmp dl,128 ; is it in first 1/2 of ASCII set ? 

jb g_selfont Jump if in 1st 1/2 (0 -> 127) 

; character (128 -> 255) is in 2nd 1/2 of font table 



sub 
cmp 
jne 

Ids 

Ids 



dl,128 
dh,64 
g 8x8 2 



make zero origin for font table lookup 
are we in mode 64 ? 
jump if no 



si,dword ptr ds : [master tbl ptr] ; get pointer to master table 
si,dword ptr ds : [si+14] ; get pointer to 2nd half of 8x16 font 



jmp short g_addr_test 



; see if font table is really there 

g_8x8_2: ; get 2nd half of 8x8 font table 

xor si, si ; move zero to segment register 

mov ds,si 

assume ds : abs0 

Ids si,dword ptr ds : [intlFlocn] ; get pointer to 2nd half of 8x8 font 

assume ds:data 



g addr test: 
mov 
or 
jnz 



ax,ds 
ax, si 
g detmode 



check if font table is set up 

if zeros, then no 2nd half of table 

continue if font table is present 
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D80C 32 D2 

D80E 2E: 8E 1E E538 R 



D813 






D813 


53 




D814 


33 


DB 


D816 


80 


FE 40 


D819 


72 


06 


D81B 


B3 


04 


D81D 


74 


02 


D81F 


33 


DB 


D821 






D821 


C5 


36 0084 R 


D825 


C5 


70 06 


D828 


5B 




D829 






D829 


51 




D82A 


33 


CO 


D82C 


8A 


C2 


D82E 


B1 


03 


D830 


D3 


E0 


D832 


59 




D833 


03 


F0 



D835 B2 04 

D837 80 FE 06 

D83A 7C 49 

D83C 74 OF 



D83E 80 FE 48 

D841 B6 04 

D843 75 04 

D845 

D845 B2 02 

D847 EB 09 

D849 

D849 03 FO 

D84B EB 05 

D84D 

D84D B6 02 

D84F 80 CB 01 

D852 



xor dl,dl ; substitute null character 

mov ds,word ptr cs : [set ds word] ; restore data segment register 

jmp short g selfont ; and continue in 1st half of font table 

character (0 -> 127) is in 1st 1/2 of font table 



g selfont: 
push 

xor 

cmp 

jb 

mov 

je 

xor 

g lds_W: 

Ids 
Ids 

pop 

g detmode: 
push 
xor 
mov 
mov 
sal 
pop 
add 



bx 

bx,bx 

dh r 64 

g_lds_w 

bl,4 

g Ids w 

bx,bx 

;(BX= 
si,dword ptr 
si,dword ptr 

bx 



ex 

ax, ax 

al,dl 

cl,3 

ax,cl 

ex 

si, ax 

dl,4 



cmp dh , 6 
jl g med wr 
je g hi wr 



cmp dh,72 

mov dh,4 

jne g super wr 

gjtinytext: 

mov dl,2 

jmp short g_repchar 

g super wr: 

add si, ax 

jmp short g_repchar 



g hi wr : 



mov 
or 



dh,2 
bl,1 



g repchar: 



; preserve register 

; make BX=0 for modes 4,5,6 

jump if mode = 4,5,6 
make BX=4 for mode 64 
jump if mode = 64 
make BX=0 for mode 72 



; font pointer offset in master table) 
ds:[master_tbl ptr] ; get pointer to master table 
ds:[si+6][bx] ; get pointer to font's 1st 128 chars 

; restore register 

; determine graphics mode 

; get ascii code in AX 

; to multiply by 

; 8 (font bytes per character) 

; and add to address of font table 

; # scanlines per i.a. (modes 4,5,6,64) 



which resolution are we using? 

jump if medium resolution (modes 4 & 5) 

jump if 640x200 resolution (mode 6) 



; we're in 640x400 resolution 
; mode 72? 
; # interlace areas = 4 for modes 64 & 72 



; 640x400 resolution (mode 72) 

; # scanlines per i.a. = 2 for mode 72 



; 640x400 resolution (mode 64) 

; multiply ascii code by 16 bytes/char 



; Hi-resolution Character Write 

; interlace areas count (even/odd) 
; mode 6 doesn't allow reverse video 

; Repeat Character Loop 
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D852 51 

D853 56 

D854 57 

D855 33 C9 

D857 8A CA 

D859 

D859 51 

D85A 57 

D85B 8A CE 



D85D 
D85D 
D85E 
D861 
D863 
D865 
D865 
D867 
D869 
D86C 
D86C 
D86F 
D873 



D885 
D885 
D887 
D889 
D88D 
D892 
D894 



AC 

F6 C3 01 
75 02 
F6 DO 

0A DB 
79 03 
26: 32 05 

26: 88 05 
81 C7 2000 
E2 E8 



D875 5F 

D876 83 C7 50 

D879 59 

D87A E2 DD 

D87C 5F 

D87D 47 

D87E 5E 

D87F 59 

D880 E2 DO 

D882 EB 55 90 



D1 E7 

8A D3 

81 E3 0003 

2E: 8A 9F D8DD R 

8A FB 

8B EB 



D896 

D896 51 

D897 56 

D898 57 

D899 B9 0004 

D89C 

D89C 51 

D89D 57 

D89E B9 0002 



push 

push 

push 

xor 

mov 

g linelp: 

push 
push 
mov 

g_i_a_lp : 

lodsb 
test 
jnz 
not 

g t xor : 
or 
jns 
xor 

g w byte: 
mov 
add 
loop 

pop 
add 
pop 
loop 

pop 

inc 

pop 

pop 

loop 

jmp 

g med_wr : 
sal 
mov 
and 
mov 
mov 
mov 

g char lp : 
push 
push 
push 
mov 

g scan lp : 
push 
push 
mov 



ex ;save character repeat count 

si ; save source address (font table) 

di ;save destination addr. (grafix ram) 

ex, ex ; prepare loop counter 

cl.dl ; scanlines per interlace area counter 

; Scanline Loop 
ex ;save scanlines per i.a. counter 

di ;save interlace area #1 address 

cl,dh ; init. interlace areas counter (2 or 4) 

; Interlace Area Loop 

; get byte from font table 
bl,1 ; reverse video? 

g_t_xor ;jump if no 

al ; reverse video 

Jest For XOR 
bl,bl ;X0R the char, with grafix ram? 

g w byte ;jump if no 

al,es:[di] ;X0R with grafix ram 

; Write Byte 
es:[di],al ; write byte in grafix ram 

di,2000H ; address next interlace area 

g_i_a_lp 

di ; restore interlace area #1 address 

di,80 ; address next scanline in each i.a. 

ex ; restore scanlines per i.a. counter 

g linelp 

di ; restore char's grafix ram address 

di ; address next character in grafix ram 

si ; restore char's font table address 

ex ; restore character repeat count 

g repchar ; repeat the character 

g return ; exit 



di, 1 

dl,bl 

bx,0003H 

bl,cs : g color table[bx 

bh,bl 

bp,bx 



; Medium Resolution Character Write 

double graf ram pointer (2 bytes/char) 
DL saves XOR bit input param (bit 7) 
BX= foreground color (& table offset) 
propagate color through byte 
propagate color through word 
BP saves word of color masks 



ex 
si 
di 
ex, 4 



ex 
di 
ex, 2 



; Repeat Character Loop 

; save character repeat counter 
; save source address (font table) 
; save destination addr. (grafix ram) 
; init. scanlines per i.a. counter 

; Scanline Loop 

; save scanlines per i.a. counter 
; save interlace area #1 address 
; init. interlace areas counter 



ROM BIOS Listing 



1-93 



ROM BIOS Listing 



D8A1 




C 
C 


g_ia_lp: 


; Interlace Area Loop 


D8A1 


51 


C 


push 


ex 


; save i.a. counter 


D8A2 


AC 


C 


lodsb 




; get a byte from the font table 


D8A3 


8A EO 


C 


mov 


ah,al 


; copy it 


D8A5 


B9 0008 


C 

c 


mov 


ex, 8 


; init. loop counter (8 bits/byte) 


D8A8 




c 


g exp byt: 


; Expand Byte Loop 


D8A8 


DO EC 


c 


shr 


ah,1 


; load carry with font byte bit 


D8AA 


D1 DB 


c 


rcr 


bx,1 


; rotate it into expansion accumulator 


D8AC 


DO E8 


c 


shr 


al,1 


; load carry with same bit as before 


D8AE 


D1 DB 


c 


rcr 


bx,1 


; double the bit 


D8B0 


E2 F6 


c 
c 
c 


loop 


g exp byt 


; expand font byte bits 


D8B2 


23 DD 


and 


bx,bp 


; color pixels with foreground color 


D8B4 


86 FB 


c 


xchg 


bh.bl 


; reorder the bytes for grafix ram 


D8B6 


OA D2 


c 


or 


dl.dl 


is the XOR bit set ? 


D8B8 


79 03 


c 


jns 


g med store 


jump if no 


D8BA 


26: 33 1D 


c 


xor 


bx,es: [di] 


XOR with grafix ram 


D8BD 




c 


g med store: 






D8BD 


26: 89 1D 


c 


mov 


es:[di],bx 


update grafix ram 


D8C0 


81 C7 2000 


c 


add 


di,2000H 


address next interlace area 


D8C4 


59 


c 


pop 


ex 


restore i.a. loop counter 


D8C5 


E2 DA 


c 
c 
c 


loop 


g_ia_lp 


next interlace area 


D8C7 


5F 


pop 


di 


restore interlace area #1 address 


D8C8 


83 C7 50 


c 


add 


di,80 


address next scanline in each i.a. 


D8CB 


59 


c 


pop 


ex 


restore scanline loop counter 


D8CC 


E2 CE 


c 
c 
c 


loop 


g scan lp 


next scanline 


D8CE 


5F 


pop 


di 


restore char's grafix ram address 


D8CF 


47 


c 


inc 


di 


address next character in grafix ram 


D8D0 


47 


c 


inc 


di 




D8D1 


5E 


c 


pop 


si 


restore char's font table address 


D8D2 


59 


c 


pop 


CX ; 


restore character repeat count 


D8D3 


E2 C1 


c 
c 
c 


loop 


g char lp ; 


repeat the character 


D8D5 


8A E3 


mov 


ah.bl ; 


return AX with last word written 


D8D7 


8A C7 


c 
c 
c 


mov 


al,bh 




D8D9 




g return: 


; Return f 


rom Write Char 


D8D9 


5A 


c 


pop 


dx ; 


restore 


D8DA 


59 


c 


pop 


CX ; 


the 


D8DB 


5B 


c 


pop 


bX ; 


registers 


D8DC 


C3 


c 
c 
c 
c 
c 


ret 






D8DD 




g color table 


label byte ; Table of 


foreground colors extended to byte 


D8DD 


00 


db 


00000000B ; 


color (bit pattern: 00) 


D8DE 


55 


c 


db 


01010101B ; 


color 1 (bit pattern: 10) 


D8DF 


AA 


c 


db 


10101010B ; 


color 2 (bit pattern: 01) 


D8E0 


FF 


c 
c 
c 
c 


db 


11111111B ; 


color 3 (bit pattern: 11) 


D8E1 




grf graphics write endp 
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D8E1 

D8E1 51 

D8E2 8A E8 

D8E4 8A C4 



D8E6 
D8E8 
D8ED 
D8EF 
D8F1 
D8F1 
D8F3 
D8F5 
D8F7 
D8FB 
D8FD 
D8FE 

D8FF 

D8FF 



B1 01 

80 3E 0049 R 48 

74 02 

FE C1 

D2 E0 

32 C9 

86 E9 

F6 26 004A R 

03 C1 

59 

C3 



D8FF 

= 0000 
D8FF 

D8FF 90 
D900 DB48 R 



page 



Get offset into graphics ran refresh memory which corresponds to 
the current cursor position (or any arbitrary character position). 

Input: AX = current cursor position (AL = Column #, AH = Row #) 

Output: AX = offset into graphics ram 



g curs off 



proc 



near 



g 72: 



push 


ex 




mov 


ch,al 




mov 


al,ah 




mov 


cl,1 




cmp 


byte ptr 


ds:[v mode] , 


je 


9 72 




inc 


cl 




shl 


al,cl 




xor 


cl.cl 




xchg 


ch,cl 




mul 


byte ptr 


ds:[v width] 


add 


ax, ex 




pop 


ex 




ret 







save work register 
hold column number 
row number to al 

; mode 72 shift count (multiply * 2) 

; jump if mode 72 

; mode ~72 shift count (multiply * 4) 

multiply row # by rows per byte 
zero out the shift count 
move column number for add 
multiply by bytes per columnn 
compute offset into refresh ram 
restore register 
and return to caller 



g_curs_off endp 

code ends 

.LIST 

include pwrupl.asm 



; start list 2 



Filename: 



pwrupl.src 



This module includes CPU, ROM, 8254 p_dma ptimer, & 8237 p_dma 
Controller tests. 



code segment public 'ROM' 

assume cs : code, ds: nothing, es : nothing, ss : nothing 



PARITY = 



p1 datal 



even 



stack rom 



proc near 



dw 



i rom 



; CONDITIONAL ASSEMBLY 

word-align stack_rom 
return from i cpu 
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D902 


DB4E R 








C 




D904 


DB56 R 








C 




D906 


DB5E R 








C 




D908 


DB6D R 








C 




D90A 


DB79 R 








C 




D90C 


DB88 R 








C 




D90E 


DBFA R 








C 




D910 


DC1B R 








C 
C 




D912 


52 65 73 


69 64 65 


C 


banner m 




6E 74 20 


44 69 61 


C 






67 6E 6F 


73 74 69 


C 






63 73 OD 


OA 






C 




D928 


56 65 72 


73 


20 


32 


C 






2E 30 32 


OD 


OA 


OA 


C 




D934 


00 








C 
C 




D935 


OD OA 50 


72 


69 6D 


C 


bt m 




61 72 79 20 42 6F 


C 






6F 74 2D 


53 


74 


72 


c 






61 70 2E 


2E 


2E 


OD 


c 






0A 00 








c 




D94F 


50 72 69 6D 


61 


72 


c 


bt merr 




79 20 42 


6F 


6F 


74 


c 






2D 53 74 


72 


61 


70 


c 






20 44 49 


53 


4B 


20 


c 






52 45 41 


44 20 


45 


c 






52 52 4F 


52 


2E 


OD 


c 






00 








c 
c 


; This 1] 


D974 


20 20 20 


20 


20 


20 


c 


bt spaces 




20 20 20 


20 


20 


20 


c 






20 20 20 


20 


20 


20 


c 






20 20 20 


20 


20 


20 


c 






20 20 20 


20 


20 


20 


c 






20 20 20 


20 


20 


OD 


c 






00 








c 
c 




D999 


2A 20 49 


6C 


6C 


65 


c 


ill ml 




67 61 6C 


20 


49 6E 


c 






74 65 72 


72 


75 


70 


c 






74 20 4E 


6F 


2E 


20 


c 






00 








c 




D9B2 


68 20 61 


74 


20 


00 


c 


ill m2 


D9B8 


20 2A 00 








c 
c 


ill m3 


D9BB 


20 20 50 
0D 0A 00 


61 


73 


73 


c 
c 


pass m 


D9C4 


20 50 61 
OA 00 


73 


73 


OD 


c 

c 


spass m 


D9CC 


20 20 46 


61 


69 6C 


c 


fail m 




00 








c 
c 




D9D3 


43 50 55 


20 


28 


69 


c 


i cpu m 




32 38 36 


29 


20 


20 


c 





dw 


i rom retl 


dw 


i rom ret2 


dw 


i rom ret3 


dw 


i dmat 


dw 


i dmat ret 


dw 


i dmac 


dw 


i dmac ret 


dw 


i pic 



return from rom checksum 



return from i rom 
return from rtc chk 
return from i dmat 
return from memtst 
return from i dmac 



db 

db 
db 
db 



'Resident Diagnostics' ,CR,LF 

'Vers 2.02',CR,LF,LF 

NUL 

CR , LF , ' Primary Boot-Strap . . . ' , CR , LF , NUL 



db 



'Primary Boot-Strap DISK READ ERROR. ' ,CR, NUL 



This line must have same number of blanks as the preceding has characters: 
db ' \CR,NUL 



db 



Illegal Interrupt No. \NUL 



db 




db 




db 


' Pass \CR,LF, NUL 


db 


' Pass \CR,LF, NUL 


db 


' Fail', NUL 



'h at \NUL 



*',NUL 



db 



'CPU (1286) \NUL 



Pass/Fail 
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D9E0 



D9ED 



D9FA 



DA07 



DA14 



DA21 



DA2E 



DA3B 



DA48 
DA4C 
DA50 
DA54 



DA61 
DA65 



DA72 

DA7F 
DA89 

DA96 

DAA3 



DABO 
DAB4 

DABD 



00 

52 4F 4D 

64 75 6C 

00 

44 4D 41 

6D 65 72 

00 

44 4D 41 

6E 74 72 

00 

49 6E 74 
75 70 74 
00 

56 69 64 

42 6F 61 
00 

4E 50 55 
32 38 37 
00 

43 61 6C 
61 72 20 
00 

52 54 20 

63 6B 20 

00 

3A 4C 4F 

3A 48 49 

3A 4E 52 

4B 65 79 

72 64 20 

00 

3A 53 54 

50 72 69 
72 20 50 



20 4D 6F 
65 20 20 

20 54 69 
20 20 20 

20 43 6F 
6F 6C 20 

65 72 72 
73 20 20 

65 6F 20 
72 64 20 

20 28 69 
29 20 20 

65 6E 64 
43 6C 6B 

43 6C 6F 
20 20 20 

00 

00 

00 

62 6F 61 

20 20 20 

00 

6E 74 65 

6F 72 74 



53 65 
20 43 
00 

20 6B 
4D 20 
4F 70 
61 6C 
00 

46 6C 
20 28 
00 

46 6C 
20 28 
00 

20 4E 
20 52 
0D 0A 
46 69 
44 69 
00 



72 69 
6F 6D 

62 20 
20 00 
74 69 
20 52 

6F 70 

41 3A 

6F 70 

42 3A 

6F 74 
65 61 
00 
78 65 

73 6B 



61 6C 
6D 2E 

52 41 

6F 6E 
4F 4D 

70 79 
29 20 

70 79 
29 20 



64 79 

64 20 
20 20 



i dmat m 



i dmac m 



i pic m 



i d m 



i npu m 



i calr m 



i rtc m 



rtc lo_m 
rtc hi m 
rtc nr m 
kb m 



kb stjn 
prt m 



l com m 

i_RAM_m 
i_optR0M_m 

i fduA m 

i fduB m 



fdu notjn 
fdu rdyjn 



i hdu m 



db 



db 



db 



db 



db 



db 



db 



db 



db 
db 
db 
db 



db 
db 



db 

db 
db 

db 

db 

db 
db 

db 



'ROM Module \NUL ; Pass/Fail 



'DMA Timer \NUL ; Pass/Fail 



'DMA Control \NUL ; Pass/Fail 



'Interrupts \NUL ; Pass/Fail/Fail :Hx 



'Video Board \NUL ; Pass/Fail 



'NPU (i287) \NUL ; Pass/Fail 



'Calendar Clk',NUL ; Fail only% 



'RT Clock \NUL ; Pass/Fail/Fail :L0, HI, 



L0',NUL 

HI', NUL 

NR',NUL 

Keyboard 



\NUL 



':ST',NUL 
'Printer Port',NUL 



Error #1 (must remain in 
Error #2 order for addr. 
Error #3 calculation!) 
Pass/Fail/Fail: ST 



Pass/Fail: xx 



'Serial Comm.',NUL ; Pass/Fail : xx 

' kb RAM \NUL ; Pass/Fail :cc : y000:zzzz:wwww:rrrr 

'Optional R0M',NUL ; Pass/Fail : xxxx 

'Floppy (A:) \NUI_ ; Ready/Not Ready/Fail : xx 

'Floppy (B-.) \NUI_ 



'Not' ; purposely no NUL! ! ! ! ! 

' Ready \CR,LF, NUL 

'Fixed Disk \NUI_ ; Pass/Fail : xx 
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C 
C 






db 


'Disk Diagnostics xxxxx' 






C 






db 


'Loop Diagnostics xxxxx' 






C 






db 


'Primary Bootstrap Floppy (A:) Not Ready 






C 






db 


'Insert 


system disk and type any key.' 






C 






db 


'Primary Bootstrap Floppy (A:) Fail:xx' 






C 






db 


'Primary Bootstrap Floppy (B:) FaiLxx' 






C 






db 


'Primary Bootstrap Fixed Disk Fail:xx' 






C 






db 


'Select ( 


Dperating System? 






C 
C 
c . 






db 


'Serial E 


Bootstrap' 


DACA 


OF 


l cal 


val 


db 


OFh 


port 074h = units of minutes (0-9) 


DACB 


07 


c 






db 


07h 


port 075h = tens of minutes (0-5) 


DACC 


OF 


c 






db 


OFh 


port 076h = units of hours (0-9) 


DACD 


03 


c 






db 


03h 


port 077h = tens of hours (0-2) 


DACE 


OF 


c 






db 


OFh 


port 078h = units of days (0-9) 


DACF 


03 


c 






db 


03h 


port 079h = tens of days (0-3) 


DADO 


07 


c 






db 


07h 


port 07Ah = day of week (0-7) 


DAD1 


OF 


c 






db 


OFh 


port 07Bh = tens of months (0-9) 


DAD2 


01 


c 
c 

C f 

c 
c 
c 






db 


01h 


port 07Ch = units of months (0-1) 


DAD3 




)1 datal 


endp 










DO 


sJOT change any code between 


here and the first " out" statement unless 






c 


you 


know what you are 


doing . . 


which is doubtful. You could break 






c 
c 


merge. 








DAD3 




C c 


iagnostics 1 


proc 


near 








c 
c 
c 






assume 


cs:COde, 


ds: nothing, es : nothing, ss : nothing 


DAD3 


BA 3FA0 




mov 


dx,bitread 


; misc status latch% 


DAD6 


EC 


c 




in 


al,dx 






decide why resetting / 


DAD7 


A8 20 


c 




test 


al,pwrupl 




is it a powerup-up?% 


DAD9 


74 09 


c 




jz 


i pwrup 






yes, do diagnostics / 


DADB 


2E: 8E 1E E538 R 


c 




mov 


ds,word 


ptr cs:[set ds word] ; get resumption offset / 


DAEO 


FF 2E 00A2 R 


c 
c 

C i 




jmp 


dword ptr ds : [osmergel] ; go to UNIX% 


DAE4 




pwrup: 








DAE4 


FA 


c 




cli 








disable interrupts 


DAE5 


BO 40 


c 




mov 


al,40h 






Check Point #0 


DAE7 


BA 0378 


c 




mov 


dx,378h 






parallel port data port address 


DAEA 


EE 


c 




out 


dx,al 






output " Running- Checkpoint 0" 


DAEB 


FC 


c 
c 
c 




eld 








clear string direction flag 


DAEC 


BA 3F40 




mov 


dx,3f40r 


l 


; CTC timer port, access to clr intr% 


DAEF 


BO 03 


c 




mov 


al,3 






value to stop timers / 


DAF1 


EE 


c 




out 


dx,al 






stop CTC timer and clear intr / 


DAF2 


FE C2 


c 




inc 


dl 






do port 3f41% 


DAF4 


EE 


c 




out 


dx,al 






stop timer / 


DAF5 


FE C2 


c 




inc 


dl 






do port 3f42% 


DAF7 


EE 


c 
c 

C ; 
C ; 




out 


dx,al 






stop timer / 
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DAF8 




C 
C 
C 
C 
C 


i CPU: 
















; Flags 


Test 


(All Set): SF, ZF 


AF 


, PF, CF & OF. 






C 
C 
C 


; (Exercises 


flags and accumulator 


only.) 




DAF8 


B8 FFOO 




mov 


ax,0FF00h 






ah 


= all 1'S; al = all O's 


DAFB 


9E 


C 




sahf 








set SF, ZF, AF, PF, & CF 


DAFC 


79 25 


C 




jns 


i cpu err 






SF 


set? if not, abort 


DAFE 


75 23 


C 




jnz 


i cpu err 






ZF 


set? if not, abort 


DBOO 


7B 21 


C 




jnp 


i cpu err 






PF 


set? if not, abort 


DB02 


73 1F 


C 
C 
C 




jnb 


i cpu err 






CF 


set? if not, abort 


DB04 


37 




aaa 






; to 


test if AF is set, al must be <= 9 






c 












if 


AF set, then: (ah +=1) == 0; 






c 












al 


= ((al+6) & 0Fh)== 6; CF = AF == 1 


DB05 


73 1C 


c 




jnb 


i cpu err 






CF 


= AF set? if not, abort 


DB07 


OA E4 


c 




or 


ah, ah 






ah 


= 0? if not, abort 


DB09 


75 18 


c 
c 
c 




jnz 


i cpu err 








DBOB 


BO 40 




mov 


al,40h 






ah 


= 


DBOD 


02 CO 


c 




add 


al,al 






al 


= 40h + 40h = 80h = -128 


DBOF 


71 12 


c 
c 
c 




jno 


i cpu err 






OF 


set? if not, abort 






; Flags 


Test 


(All Reset): SF, ZF, 


AF, PF, CF 


" & OF. 






c 
c 
c 


; (Exercises 


flags and accumulator 


only.) 




DB11 


33 CO 




xor 


ax, ax 






ax 


= 


DB13 


9E 


c 




sahf 








reset SF, ZF, AF, PF, & CF 


DB14 


78 OD 


c 




js 


i cpu err 






SF 


reset? if not, abort 


DB16 


76 OB 


c 




jbe 


i cpu err 






ZF 


or CF reset? if not, abort 


DB18 


7A 09 


c 
c 
c 




JP 


i cpu err 






PF 


reset? if not, abort 


DB1A 


37 




aaa 






; to 


test if AF reset, al must be <= 9 






c 












if 


AF reset, then: ah unchanged; 






c 












al 


= (al & OFh) == 0; CF = AF == 


DB1B 


72 06 


c 




jb 


i cpu err 






CF 


= AF reset? if not, abort 


DB1D 


03 CO 


c 




add 


ax, ax 






ax 


= 0? if not, abort 


DB1F 


75 02 


c 
c 




jnz 


i cpu err 




; ax 


=0+0=0, so should be no OF. 


DB21 


71 11 


c 
c 
c 
c 
c 




jno 


i cpu ok 




; OF 


reset? if not, abort 










assume cs:Code 


ds 


:Code, es 


absO, ss:Code 


DB23 




i cpu err: 










DB23 


8C C8 


c 




mov 


ax,cs 




; satisfy assumptions 


DB25 


8E D8 


c 




mov 


ds,ax 








DB27 


8E DO 


c 




mov 


ss,ax 




; use 


ROM 'stack' 


DB29 


BC D900 R 


c 
c 
c 




mov 


sp,cs: (offset stack 


rom) 




DB2C 


BE D9D3 R 




mov 


si, cs: (offset i 


cpu 


_m) 




DB2F 


32 E4 


c 




xor 


ah, ah 




; clear ah (no error number to report) 


DB31 


E9 F720 R 


c 
c 




jmp 


i fatal 




; i fatal will 'ret' to i rom 
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DB34 




C 


i cpu 


Ok: 










DB34 


8C C8 


C 




mov 


ax,cs 






; satisfy assumptions 


DB36 


8E D8 


C 




mov 


ds,ax 








DB38 


8E DO 


C 




mov 


ss,ax 






; use ROM 'stack' 


DB3A 


BC D900 R 


C 
C 
C 




mov 


sp,cs: (offset stack 


rom) 




DB3D 


BO 41 




mov 


al,41h 






; Check Point #1 


DB3F 


BA 0378 


C 




mov 


dx,378h 






; parallel port data port address 


DB42 


EE 


C 




out 


dx,al 






; output " Running- Checkpoint 1" 






C 
C 

c 


; Reset the 


keyboard 








DB43 


BO 00 




mov 


al.O 








DB45 


E6 61 


c 




out 


p kctrl.al 








DB47 


C3 


c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 




ret 








; will 'ret' to i rom 








ROM 


Module Test 
















assume cs:Code 


ds 


code 


, es : abs0, ss:Code 


DB48 




i rom 
















; Calculate 


Checksum of ROM. 








DB48 


BE E000 




mov 


si,0E000h 






ROM starts at ds.-si = F000:E000 


DB4B 


E9 E52A R 


c 




jmp 


rom checksum 






'call' rom checksum 


DB4E 




c 


i rom 


retl: 








will 'ret' here 


DB4E 


75 10 


c 




jnz 


i rom err 








DB50 


BE C000 


c 




mov 


si,0C000h 






ROM starts at dS:Si = F000:C000 


DB53 


E9 E52A R 


c 




jmp 


rom checksum 






'call' rom checksum 


DB56 




c 


i rom 


ret2: 










DB56 


75 08 


c 




jnz 


i rom err 








DB58 


BE A000 


c 




mov 


si,0A000h 






ROM starts at dS:Si = F000:A000 


DB5B 


E9 E52A R 


c 




jmp 


rom checksum 






'call' rom checksum 


DB5E 




c 


i rom 


ret3: 








will 'ret' here 


DB5E 


74 06 


c 
c 




jz 


i rom ok 








DB60 




c 
c 


i rom 


err: 










DB60 


BE D9E0 R 


c 




mov 


si, cs: (offset i 


rom 


m) 




DB63 


E9 F720 R 


c 
c 
c 
c 




jmp 


1 fatal 






ah has illegal checksum 

i fatal will 'ret' to i dmat 


DB66 




i rom 


ok: 










DB66 


BO 42 


c 




mov 


al,42h 






Check Point #2 


DB68 


BA 0378 


c 




mov 


dx,378h 






parallel port data port address 


DB6B 


EE 


c 




out 


dx.al 






output " Running- Checkpoint 2" 


DB6C 


C3 


c 
c 
c 
c 
c 
c 
c 




ret 








will 'ret' to i dmat 








8254 


p dma p timer Test 
















assume cs : code, 


dS:Code, 


es : abs0, ss:Code 
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DB6D 



DB6D BO 04 
DB6F E6 08 



DB71 BO 74 

DB73 BA 0041 

DB76 E9 E1C0 R 

DB79 

DB79 74 06 



DB7B 

DB7B BE D9ED R 

DB7E E9 F720 R 



DB81 

DB81 BO 43 

DB83 BA 0378 

DB86 EE 

DB87 C3 



DB88 E6 0D 



DB8A B4 01 

DB8C E4 OD 

DB8E OA CO 

DB90 75 75 



i dmat: 



Disable 8237A p dma Controller before the testing of the 8254 p_dma p_timer channel. 



mov al,dma cmd disable 
out dma command, al 



disable p dma controller command 



Proceed with the testing of the 8254 p dma p_timer channel ()p_8253_1. 



mov al,074h 

mov dx,p_8253_1 

jmp rtc_chk 
i dmat_ret: 

jz i dmat_ok 



01 11 010 -> p_8253_1, lsb 1st, mode 2, no BCD 
select p dma refresh counter 
'call' rtc_chk 
will 'ret' here 



i dmat_err : 
mov 
jmp 



i dmat_ok: 
mov 
mov 
out 
ret 



si, cs: (offset i_dmat_m) 

i fatal ; ah has error code to report. 

; i fatal will 'ret' to i dmac 



al,43h 

dx,378h 

dx,al 



Check Point #3 

parallel port data port address 
output " Running- Checkpoint 3" 
will 'ret' to i dmac 



8237 p dma Controller Test — Test Chip's Operation & Channel Registers 

The 8237A p dma Controller was disabled before the testing of the 
8254 p dma p timer channel. 



assume cs:COde, ds:Code, es : abs0, ss : code 

i dmac: 

; Send a 'master clear' to 8237 p_dma Controller. 

out dma master_clr,al ; send master clear to port 

The dma command, dma_status, dma_request, dma_temp, and dma_ff registers 
are cleared, and the dma mask register is set (all off). 
Test readable control registers: dma_status & dma_temp) 



mov 



ah,1 



in 


al,dma temp 


or 


al,al 


jnz 


i dmac err 



TEMP Error #1 



al = 0? 

if not, abort 



Test all 8 16-bit readable/writeable channel registers (address and count 
registers for all 4 channels, i.e., ports through 7) with register bit test: 
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DB92 BB FFFF 



DB95 



DB95 BA 0007 

DB98 

DB98 8B C3 

DB9A EE 

DB9B 90 

DB9C EE 

DB9D 90 

DB9E EC 

DB9F 8A EO 

DBA1 EC 

DBA2 3B C3 

DBA4 B4 02 

DBA6 75 5F 

DBA8 4A 

DBA9 79 ED 

DBAB 43 

DBAC 74 E7 



DBAE BO FF 

DBBO E6 01 

DBB2 90 

DBB3 E6 01 



DBB5 BO 58 
DBB7 E6 OB 



DBB9 BO 00 
DBBB E6 08 



C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 



(dma_addr_x & dma_count_x are tested with OFFFFh and then Oh for x = to 3. ) 



bx,0FFFFh 



i dmac pass2: 



mov 

i dmac lp : 
mov 
out 
nop 
out 
nop 
in 
mov 
in 

cmp 
mov 
jnz 

dec 
jns 

inc 



dx,7 



ax,bx 
dx,al 

dx,al 

al,dx 
ah,al 
al,dx 

ax,bx 
ah, 2 
idmac err 

dx 

i dmac lp 

bx 

i dmac pass2 



bx = all bits reset 

outer loop 

if 1st pass, bx = OFFFFh 

if 2nd pass, bx = Oh 

loop counter and port address!!! 

inner loop 

get bit test pattern 

write low byte of address/count 

no successive in's or outs to dma chip 

write high byte of address/count 

read low byte of address/count 

save low byte in ah 

read high byte of address/count 

does what's been read = test pattern? 
TEMP Error #2 
if not, abort 

did we decrement past port address 0? 
if not, continue same pass for all 8. 

1st pass? if so, bx = OFFFFh & loop 
2nd pass? if so, bx = & continue 



We are done testing all 8 16-bit readable/writeable channel registers (address 
and count registers for all 4 channels) with the following results: All the 
address registers (dma_addr_x) and count registers (dma count x) have been 
initialized to zero. 

Load 64k (OFFFFh+1) count for RAM refresh p dma controller channel. 



low byte of count for 64k RAM refresh 

chip needs time% 

high byte of count for 64k RAM refresh 



; Load mode for RAM refresh p_dma controller channel: channel 0, read, auto- 
; initialize, increment, single mode. 



mov 


al.OFFh 


out 


dma count 0,al 


nop 




out 


dma count 0,al 



mov 
out 



al,dma mode 
dma mode,al 



mode for RAM refresh 



; Enable p_dma controller: memory-to-I/0, controller enable, normal, fixed 
; priority, late write, and DREQ/~DACK. 



mov al,dma cmd enable 
out dma command, al 



enable p dma controller 



The master clear command above has masked off all channels. Now, we 'unmask' 
the RAM refresh dma mask bit. p dma RAM refresh begins for the first time! 
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DBBD BO 00 
DBBF E6 0A 



DBC1 BO 74 

DBC3 E6 43 

DBC5 B8 0013 

DBC8 E6 41 

DBCA 8A C4 

DBCC E6 41 



DBCE B4 03 

DBDO E4 08 

DBD2 A8 10 

DBD4 75 31 



DBD6 BA 000B 



DBD9 BO 41 
DBDB EE 



DBDC BO 56 
DBDE EE 



DBDF BO 43 
DBE1 EE 



DBE2 32 CO 

DBE4 BA 0083 

DBE7 

DBE7 EE 

DBE8 FE CA 

DBEA 78 FB 



mov 
out 



al T dma unmask 
dma mask bit.al 



turn on RAM refresh channel 



Program p 8253 1 of i8254 p_timer to proper value for RAM refresh. 



select p dma refresh counter 



mov 


al,t1cmd 




out 


p 8253 Ctrl, 


al 


mov 


ax,t1count 




out 


p 8253 1,al 




mov 


al,ah 




out 


p 8253 1,al 





load p dma refresh count 



; Check dma status for 'hot' p dma request from p 8253 1. 



mov ah, 3 

in al,dma status 

test al,010h 

jnz i dmac err 



TEMP Error #3 

test for RAM refresh request in status 

bit #4 -> channel request 

if 'hot' p dma request is there, abort 



; Initialize other p dma counters and modes. 

mov dx,dma mode 
; Initialize p dma channel 1 not used. 



mov 
out 



al,dma mode 1 
dx,al 



mode for not used 



; Initialize p dma channel 2 FDU. 



mov 
out 



al,dma mode_2 
dx,al 



mode for FDU 



Initialize p dma channel 3 display. 



mov 
out 



al,dma mode 3 
dx,al 



mode for display 



Initialize p dma Segment Nibble Latches to zero. 

(dma segm x for x = to 3 is port addresses 80h to 83h). 



xor 
mov 

i dmac nib: 
out 
dec 



al,al 
dx,083h 



dx,al 

dl 

i dmac nib 



al = 

loop counter and port address! 

dx = dma segm 3 = 083h 



; when dl goes from 80h (-128) to 
; 07Fh (+127) we will exit 



8237 p dma Controller Test — Test Lowest 64k bank of RAM 
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DBEC 2E: 8E 1E E538 R 
DBF1 8B 36 0072 R 



DBF5 
DBF7 
DBFA 



33 D2 
E9 E22F R 



DBFA 2E: 8E 1E E538 R 
DBFF 89 36 0072 R 



DC03 


B4 


04 




DC05 


74 


OD 




DC07 








DC07 


BE 


D9FA 


R 


DCOA 


OB 


C9 




DCOC 


75 


03 




DCOE 


BE 


E5FB 


R 


DC11 








DC11 


E9 


F720 


R 


DC14 








DC14 


BO 


44 




DC16 


BA 


0378 




DC19 


EE 






DC1A 


C3 







DC1B 

DC1B B8 0030 

DC1E 8E DO 

DC20 BC 0100 



DC23 E8 E1A6 R 



DC26 33 F6 

DC28 8B FE 

DC2A B9 01FE 

DC2D B8 DC8C R 



C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



mov 
mov 

xor 

jmp 

i_dmac ret: 

mov 
mov 

mov 



i dmac err: 
mov 
or 
jnz 
mov 

ide : 

jmp 



i dmac ok: 
mov 
mov 
out 
ret 



assume cs:Code, ds : data, es : absO, ss : code 

ds,word ptr cs : [set ds word] ; satisfy assumptions 
si, word ptr ds : [reset_flag] ; save reset flag 



dx,dx 
memtst 



dx = 0; test 0000:0 to 0000:FFFF 
'call' memtst 
will 'ret' here 



ds,word ptr cs : [set_ds_word] ; satisfy assumptions 
word ptr ds: [reset flag], si ; restore reset flag 



ah, 4 

i dmac ok 



TEMP Error #4 



si, cs: (offset i dmac m) 

ex, ex ; ; if zero then it was a parity error. 

i_d_e 

si, cs: (offset parityl m] 



i fatal 



al,44h 

dx,378h 

dx,al 



ah has error code to report, 
i fatal will 'ret' to i pic 



Check Point #4 

parallel port data port address 
output " Running- Checkpoint 4" 
will Yet' to pic 



8259A Programmable Interrupt Controller Test. 



i pic: 



assume cs.-code, dS:data, es : absO, ss: stack ram 



; Initialize RAM Stack 
; on lower tested memory 



mov 


ax, stack seg 


mov 


ss,ax 


mov 


sp,100h 



Initialize & Disable 8259A Programmable Interrupt Controller. 

call i pic_init 
Install Interrupt Vectors for diagnostics. 
Install unexpected diagnostic interrupt vectors. 



xor si, si 
mov di,si 
mov cx,(0400h-0004h)/2 



mov 



ax, cs: (offset i pic err) 



es:Si = absO seg : int001ocn 
es:di = absO seg : int001ocn 
words from 0:0004h to 0:0400h 

; store offset i pic err 
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DC30 


AB 


C 




stgsw 








DC31 


8C C8 


C 




mov 


ax , cs 




; store segment address 


DC33 


AB 


C 




stosw 






; es:di = abs.0 seg.:int001ocn + 4 


DC34 


F3/ 26: A5 


C 
C 




rep 


movs word ptr 


es:0004.h/wprd ptr es:O000h ; replicate vector 






C 
C 
C 
C 


; Install software diagnostic interrupt vectors. 


DC37 


B8 0C.59 R 




mov 


ax, cs: (offset i pic ok] 


; ax = offset i pic ok 


DC.3A 


33 FF 


C 




xor 


di,di 




; es:di = abs.O seg : int001ocn 


D.C3C 


B1 05 


C 

c 
c 




mov 


cl,5 




• load INT's Oh through 4h. 


DC3E 




i pic 


soft: 






; ax = (4*x)+(i pic ok) 


DC.3E 


AB 


e 




stosw 






; es:di gets offset i pic x ok 


QC3F 


47 


e 




inc 


di 




; skip segment (already = cs) 


DC40 


47 


c 




inc 


di 






DC41 


05 0004 


c 




add 


ax, 4 




; i pic x ok are 4 bytes apart 


QC44 


E2 F8 


c 
c 
c 
c 
c 




loop 


i pic soft 




; until ex = 0. 






; Install hardware diagnostic interrupt vectors. 


DC46 


B8 FF23 R 




mov 


ax, cs: (offset ill 


. int) 


; ax = offset ill int 


DC4.9 


BF .0.0.20 R 


e 




mov 


di,es. : (offset int081ocn) 


; es:di = absO seg:int081ocn 


DC4C 


B1 08 


c 
c 
c 




mov 


cl,8 




; load INrs 8h through Fh. 


DC4E 




i pic 


hard: 








DC4E 


AB 


c 




stosw 






; es:di gets offset ill int 


QC4F 


47 


c 




inc 


di 




; skip segment (already = cs) 


DC50 


47 


c 




inc 


di 






D.C51 


E2 FB 


c 
c 
c 
c 
c 
c 
c 




loop 


i pic hard 




■ until ex = 0. 






; Test software interrupts first 


(cl = 


if error). 


DC53 


B7 09 




mov 


bh,09h 




bx has its 8th and 11th bits set. 














,cx = from loop above. 


DC55 


F6 F.5 


c 




div 


ch 




generate a divide-by-zero INT O.Oh 


DC57 


EB 33 


c 




jmp 


short i pie err 






DC59 




c 


i pic 


Ok: 












e 










bh = 09h. set trap & OF flags in bx 






c 










(bits 8 and 11 of flags). 


DC59 


53 


■c 




push 


bx 




put trap flags on stack 


DC5A 


9D 


c 




popf 






generate a single-step trap INT 01h 


DC5B 


EB 2F 


c 




jmp 


short i pic err 




must be 4 bytes long! 


DC5D 




c 
c 
c 


i pic 


1 Ok: 








DC5D 


CD 02 




INT 


02h 




generate a software interrupt INT 02h 


DC5F 


EB 2B 


c 




jmp 


short i pic err 




must be 4 bytes long! 


DC61 




c 
c 
c 


i pic 


2 ok: 








DC61 


CC 




INT 


03h 




generate a 1-byte break-point INT 03h 


DC62 


90 


c 




nop 






must be 4 bytes long! 


DC63 


EB 27 


c 




jmp 


short i pic err 






DC65 




c 


i pic 


3 ok: 












€ 










OF overflow flag is still set. 
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DC65 CE 

DC66 90 

DC67 EB 23 
DC69 



DC69 BO 01 



DC6B 




DC6B 


E8 E1B7 R 


DC6E 


75 1C 


DC70 


DO DO 


DC72 


73 F7 


DC74 


BO FF 


DC76 


E8 E1B7 R 


DC79 


75 11 



DC7B FB 

DC7C 33 C9 

DC7E E2 FE 

DC80 AO 006B R 

DC83 OA CO 

DC85 74 34 



DC87 

DC87 41 

DC88 DO D8 

DC8A 73 FB 



DC8C 

DC8C BC 0100 

DC8F 51 



DC90 E8 E164 R 



DC93 E8 EOAO R 



C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 



INTO 
nop 
jmp 
i pic 4 ok: 



generate an overflow interrupt INT 04h 
must be 4 bytes long! 



short i pic err 



Test hardware interrupts second. 

Test 8259A PIC interrupt mask with test patterns (cl = if error). 



mov 



al,1 



i_pic_test : 

call i_out_mask 

jne i_pic_err 

rcl al,1 

jne i_pic_test 

mov al ? 0FFh 

call i out mask 

jne i pic err 



initialize mask value = 1 



output pattern, test input 
if not same pattern, abort 
rotate test pattern 
test again, if not finished 

test pattern of all ones 
output pattern, test input 
if not same pattern, abort 



; Look for 'hot' (active though masked off) PIC interrupts (cl = IR# if error) 
; Enable Interrupts for the very first time! 



sti 




enable interrupts 


xor 


ex, ex 


delay awhile, waiting for 


loop 


$ 


a 'hot' interrupt. 


mov 


al,byte ptr ds : [intr flag] 


get the flag from ill int 


or 


al,al 


intr flag = 0? 


jz 


i pic ok 


if so, we're all done. 



; Convert 'hot' interrupt mask (bit pattern) to IR# (1 to 8 error code). 



i pic hot: 

inc ex 

rcr al,1 

jnb i pic hot 



i_pic_err : 

mov sp,100h 

push ex 
; Install Vector Table. 

call i vector 
; Initialize Video. 

call i d init 
; Display error message. 



ex = from loop above, 
increment ex (IR#+1). 
mask's least significant bit. 
if not set, continue, 
(exit with cl = 1 to 8.) 



cl = or failing PIC 'hot' active IR# 
re-initialize stack 

save error code. 

set intlOlocn = code seg : v io, and 
set intlDlocn = code seg : v parms. 
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DC96 


BE DA07 


R 


C 
C 




mov 


si,cs:(offset i pic m) 


DC99 


E8 E540 


R 


C 
C 
C 




call 


DRomString ; display failing test message. 


DC9C 


BE D9CC 


R 




mov 


si,cs:(offset fail m) 


DC9F 


E8 E540 


R 


C 
C 
C 




call 


DRomString ; display fail message. 


DCA2 


59 






pop 


ex ; restore error code. 


DCA3 


OA C9 




C 




or 


Cl.Cl ; Cl = 0? 


DCA5 


74 OE 




C 
C 
C 
C 
C 




jz 


i pic no hot ; if so, we're done. 








; Display 'hot' 


interrupt number :Hx. (where x is the IR# from to 7) 


DCA7 


E8 E56C 


R 




call 


DColon ; display a colon. 


DCAA 


B8 0E48 




C 




mov 


ax,(0Eh*100h)+'H' ; display 'hot' interrupt symbol. 


DCAD 


CD 10 




C 




int 


10h 


DCAF 


8A C1 




C 




mov 


al,cl ; transfer error code. 


DCB1 


48 




C 




dec 


ax ; error code (1 to 8) to (0 to 7) IR#. 


DCB2 


E8 E596 


R 


C 
C 

c 




call 


DHexNib ; display lowest nibble. 


DCB5 






i pic 


no hot: 




DCB5 


E8 E55F 


R 


c 




call 


DCrLf 


DCB8 


EB 07 




c 
c 
c 
c 
c 




jmp 


short i pic end 


DCBA 


F4 






hit 




DCBB 






i pic 


Ok: 




DCBB 


BO 45 




c 




mov 


al,45h ; Check Point #5 


DCBD 


BA 0378 




c 




mov 


dx,378h ; parallel port data port address 


DCCO 


EE 




c 
c 
c 
c 
c 
c 
c 
c 
c 




out 


dx,al ; output "Running- Checkpoint 5" 


DCC1 






i pic 


end: 












Install 


Vector Table. 


DCC1 


BC 0100 






mov 


sp,100h ; re-initialize stack 


DCC4 


E8 E164 


R 


c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 




call 


i vector 










Determine System Configuration from Switches and Initialize Video. 


DCC7 


E8 EOAO 


R 




call 


i d init 










Display Passing Error Messages 


DCCA 






disp pass: 




DCCA 


B8 0003 




c 




mov 


ax ,3 ; mode co80 


DCCD 


CD 10 




c 
c 
c 




int 


10h ; Clear screen. 


DCCF 


BE D912 


R 




mov 


si, cs: (offset banner m) 
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DCD2 


E8 E540 R 


C 
C 
C 


call 


DRomString 




DCD5 


BE D9D3 R 


mov 


si, cs: (offset i cpu m) 




DCD8 


E8 £540 R 


C 


call 


DRomString 




DCDB 


BE D9BB R 


C 


mov 


si, cs: (off set pass m) 




DCDE 


E8 E540 R 


C 
C 
€ 


call 


DRomString 




DCE1 


BE D9E0 R 


mov 


si, cs: (offset i rom m) 




DCE4 


E8 E540 R 


C 


call 


DRomString 




DCE7 


BE D9BB R 


C 


mov 


si, cs: (offset pass m) 




DCEA 


E8 E540 R 


€ 
C 
C 


call 


DRomString 




DCED 


BE D9ED R 


mov 


si, cs: (offset i dmat m) 




DCFO 


E8 E540 R 


C 


call 


DRomString 




DCF3 


BE D9BB R 


C 


mov 


si, cs-. (offset pass m) 




DCF6 


E8 E540 R 


C 
C 
C 


call 


DRomString 




DCF9 


BE D9FA R 


mov 


si, cs: (offset i dmac m) 




DCFC 


E8 E540 R 


C 


call 


DRomString 




DCFF 


BE D9BB R 


C 


mov 


si, cs: (offset pass m) 




DD02 


E8 E540 R 


C 
C 
C 


call 


DRomString 




DD05 


BE DA07 R 


mov 


si, cs: (offset i pic m) 




DD08 


E8 E540 R 


■c 


call 


DRomString 




DDOB 


BE D9BB R 


c 


mov 


si, cs: (offset pass m) 




DDOE 


E8 E540 R 


c 
c 
c 
c 
c 
c 
c 
c 


call 


DRomString 




DD11 


E8 E5E4 R 


call 


enable parity 


; enable parity routine 




; Size & 


clear RAM at every 64k byte bank past the lowest 64k. 


DD14 




RAM size tst: 










c 
c 
c 
c 
c 




assume cs:Code, ds:data 


, es-absO, ss : stack ram 


DD14 


BD O040 


mov 


bp,64 


-initialize memory count 


DD17 


8B 36 0072 R 


mov 


si, word ptr ds : [reset flag] ; get warm bootflag 


DD1B 


81 EE 1234 


c 


sub 


si,01234h 


si=0 iff CTL ALT DEL sequence. 


DD1F 


33 FF 


c 
c 


xor 


di,di 


offset = 0000b 


DD21 


BA 1000 


mov 


dx,1000h 


start at 1000:0000 (dx keeps segment) 


DD24 




c 


RAM size lp. : 






DD24 


8E C2 


c 


mov 


es,dx 


get segment 


DD26 


OB F6 


c 


or 


si, si 


if not a warm boot then save contents% 


DD28 


74 03 


c 


jz 


save ram 


of RAM% 


DD2A 


26: 89 05 


c 


mov 


word ptr es:[di],ax 


write someting to RAM% 

to initialize parity correctly% 


DD2D 




c 


save ram: 






DD2D 


26: 8B 05 


c 


mov 


ax, word ptr es : [di] 


read existing ram value 


DD30 


F7 DO 


c 


not 


ax 


complement it 


DD32 


26: 89 05 


c 
c 
c 
c 


mov 


word ptr es:.[di],ax 


write complement back to RAM 


DD35 


26: 8B 1D 


mov 


bx,word ptr es : [di] 


read back from RAM 
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DD38 


3B C3 


C 




cmp 


ax , bx 






; verify to test for end of RAM 


DD3A 


F7 DO 


C 




not 


ax 






; recreate original value 


DD3C 


75 41 


C 
C 
C 
C 
C 
C 
C < 




jne 

jne 

je 

jmp 


pmemcnt 

RAM size end 

go on1 

RAM size end 






; if verify fails, go see protected mode 

; RAM 

; if verify fails, at end of RAM 

• RAM size end out of range % 


DD3E 




30 on1 












DD3E 


26: 89 05 


C 




mov 


word ptr es : [di],ax 




restore original value back to RAM 


DD41 


OB F6 


C 




or 


si, si 






test warm boot flag 


DD43 


74 20 


C 
C 




jz 


RAM size nxt 






if CTL ALT DEL sequence, 
don't clear memory 


DD45 


E8 E22F R 


C 
C 




call 


memtst 
RAM error 






test and clear memory 
test flag from storage test 


DD48 


74 03 


C 




jz 


go on2 






RAM error out of range% 


DD4A 


E9 DF05 R 


C 
C 




jmp 


RAM error 








DD4D 




]0 on2 












DD4D 


83 C5 40 


C 




add 


bp,64 






increment size 


DD50 


56 


C 




push 


si 






save Warm Boot Flag 


DD51 


B8 0E0D 


C 




mov 


ax,0E0Dh 






put out a CR 


DD54 


CD 10 


C 
C 

c 




INT 


10H 








DD56 


8B C5 




mov 


ax r bp 






display tested RAM 


DD58 


BB 0003 


c 




mov 


bx,3 








DD5B 


E8 E5B3 R 


c 




call 


DNumW 








DD5E 


BE DA7F R 


c 




mov 


si,cs : (offset ] 


. RAM 


m) 




DD61 


E8 E540 R 


c 
c 
c 
c 

C F 




call 


DRomString 








DD64 


5E 




pop 


si 






retrieve Warm Boot Flag 


DD65 




\kU size nxt: 








maximum RAM = 640k = 10 * 64k 


DD65 


80 C6 10 


c 




add 


dh,10h 






next segment 


DD68 


33 CO 


c 




xor 


ax, ax 








DD6A 


8A C6 


c 




mov 


al,dh 






ax = (RAM size/16)/256 = RAM size/4k 


DD6C 


D1 E0 


c 




shl 


ax,1 






ax = (RAM size/4k) * 2 = RAM size/2k 


DD6E 


D1 E0 


c 




shl 


ax,1 






ax = (RAM size/2k) * 2 = RAM size/1k 


DD70 


1E 


c 




push 


ds 






save ds% 


DD71 


2E: 8E 1E E538 R 


c 




mov 


ds,word ptr cs : 


[set 


ds wc 


rd] ; restore data segment pointer% 


DD76 


A3 0013 R 


c 




mov 


word ptr ds : [memory 


size; 


,ax ; new size into memory size% 


DD79 


1F 


c 




pop 


ds 






restore ds% 


DD7A 


80 FE AO 


c 




cmp 


dh,OA0h 






top of RAM yet (A00O:O000)? 


DD7D 


72 A5 


c 

C ; 




jb 


RAM size lp 






if not, continue. 






C ; 
C ; 


jump 


into protected mode and 


test 


memor 


y above 640k bytes% 






C ; 
C ; 


This 


is new 


code added for 6300 Plus 




DD7F 




C 
C f 


memcnt 
















c 






assume cs : code, 


ds:data 




DD7F 


B8 0040 


c 




mov 


ax, data seg 








DD82 


8E D8 


c 




mov 


ds,ax 






; satisfy assumptions 


DD84 


8B 2E 0013 R 


c 




mov 


bp,word ptr ds: 


[memory si 


ze] ; bp has real mode memory 
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C 
C 








DD88 


FF 36 00A8 R 


C 




push 


word ptr ds: [osmerge2+2] 


DD8C 


FF 36 OOAA R 


C 
C 
C 
C 
C 
C 
C 




push 


word ptr ds : [osmerge2+4] ; 


DD90 


E8 E05E R 




call 


igdt ; 


DD93 


B8 DE3C R 




mov 


ax, word ptr cs : [offset ptestaddr; 


DD96 


A3 00B4 R 


C 




mov 


word ptr ds : [gdt+8+2] ,ax 


DD99 


BO FA 


C 




mov 


al,0fah 


DD9B 


A2 00D2 R 


C 
C 
C 




mov 


ds:[addr],al ; 


DD9E 




innerloop: 




DD9E 


B8 DDD5 R 


C 




mov 


ax, cs: [offset wereback] 


DDA1 


A3 0OA2 R 


C 




mov 


word ptr [osmergel] ,ax ; 


DDA4 


B8 FOOO 


C 




mov 


ax,0f000h 


DDA7 


A3 00A4 R 


C 

c 
c 




mov 


word ptr ds : [osmerge1+2],ax 








pusha 


; 


DDAA 


60 


c 




db 


60h 


DDAB 


1E 


c 




push 


ds 


DDAC 


06 


c 




push 


es 


DDAD 


FA 


c 




cli 




DDAE 


AO 0OD2 R 


c 




mov 


al,ds:[addr] 


DDB1 


A2 OOBE R 


c 
c 
c 




mov 


byte ptr ds: [gdt+10h+4] ,al ; 


DDB4 


BB 0OC2 R 




mov 


bx,ds: [offset gdtalias] 






c 


; 


lgdt 


[bx] 


DDB7 


OF 01 17 


c 
c 
c 




db 


0fh,01h,17h 


DDBA 


BA 3F20 




mov 


dx,3f20h ; 


DDBD 


BO 90 


c 
c 




mov 


al,90h ; 


DDBF 


EE 


c 
c 




out 


dx,al ; 






c 


; 


smsw 


ax ; 


DDCO 


OF 01 EO 


c 




db 


0fh,01h,0e0h 


DDC3 


OD 0001 


c 




or 


ax,1 ; 






c 


; 


lmsw 


ax ; 


DDC6 


OF 01 FO 


c 




db 


0fh,01h,0f0h 


DDC9 


EB 01 90 


c 




jmp 


fOO ; 


DDCC 




c 


fOO: 






DDCC 


2E: FF 2E DDD1 R 


c 




jmp 


dword ptr cs: [holdon] ; 


DDD1 




c 


holdon 






DDD1 


0000 


c 




dw 


offset ; 


DDD3 


0008 


c 
c 
c 




dw 


8 


DDD5 




wereback: 




DDD5 


B8 0030 


c 




mov 


ax, stack seg 


DDD8 


8E DO 


c 




mov 


ss,ax ; 


DDDA 


07 


c 




pop 


es ; 


DDDB 


1F 


c 
c 




pop 
popa 


ds 



size at this point 

EGA -- GWBASIC fix 
save locations 4a8 and 4aa on 
stack an restore when memory 
count is complete 

initialize standard gdt entries 

; initialize gdt code segment% 

start counting at 15M+640k% 



return location in memory% 

; /o 

save the world% 

stop all interrupts% 

high byte into proper location% 
of gdt% 

load up the gdt% 

ff port% 

enable upper 4 data lines% 

and return to wereback upon 

reset 

set the ff 

machine status word into ax 

set Protection Enable bit 
enable protection 

clear prefetch que 

indirect jump to 8:0 

engage warp drives, scotty 



restore stack segment 
restore yourself% 
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DDDC 


61 


C 




db 


61h 




DDDD 


BA 3F20 


C 




mov 


dx,3f20h 


ff port% 


DDEO 


BO 00 


C 
C 
C 




mov 


al,0h 


make memory writable again% 
and return to wereback upon 
reset 


DDE2 


EE 


C 




out 


dx,al 


set the ff 


DDE3 


FB 


C 




sti 




enable interrupts% 


DDE4 


8A 1E 00A8 R 


C 




mov 


bl.byte ptr ds : [osmerge2+2] 


load error code into bl% 


DDE8 


80 FB 00 


C 




cmp 


bl.Oh 


test for error% 


DDEB 


75 34 


C 




jnz 


stop 


stop if some type of error% 


DDED 


83 C5 40 


C 




add 


bp,64 


otherwise increment size% 


DDFO 


OB F6 


c 




or 


si T si 


if warm boot% 


DDF2 


74 15 


c 
c 
c 




jz 


noprint 


don't print messages% 


DDF4 


56 




push 


si 


save warm boot flag% 


DDF5 


B8 OEOD 


c 




mov 


ax,0E0Dh 


put out CR LF just in case% 


DDF8 


CD 10 


c 




int 


10h 


call screen display% 


DDFA 


8B C5 


c 




mov 


ax,bp 


display tested RAM% 


DDFC 


BB 0003 


c 




mov 


bx,3 




DDFF 


E8 E5B3 R 


c 




call 


DNumW 




DE02 


BE DA7F R 


c 




mov 


si, cs: (offset i RAM m) 




DE05 


E8 E540 R 


c 




call 


DROMString 




DE08 


5E 


c 
c 
c 




pop 


si 


restore warm boot flag% 


DE09 




noprint 








DE09 


AO 00D2 R 


c 




mov 


al,ds:[addr] 


current 64k chunk into al% 


DEOC 


3C FF 


c 




cmp 


al.Offh 


are we at 16Mbytes?% 


DEOE 


75 02 


c 




jne 


cont cnt 


if not continue count% 


DE10 


BO OF 


c 
c 
c 
c 
c 




mov 


al.Ofh 


if we hit 16MB then jump% 
back down to 1MB boundary% 
al gets incremented below 


DE12 




cont cnt: 






DE12 


3C F9 


c 




cmp 


al,0f9h 


are we at 15M+640k boundary?% 






c 


; 


je 


RAM size end 


if so we are at max ram% 






c 








so stop% 


DE14 


75 03 


c 




jne 


go on3 




DE16 


E9 DEC6 R 


c 
c 
c 




jmp 


RAM size end 




DE19 




go on3: 








DE19 


FE CO 


c 




inc 


al 


otherwise increment address% 


DE1B 


A2 00D2 R 


c 




mov 


ds:[addr],al 








c 


; 


loop 


innerloop 


continue to test the memory% 






c 


; 


jcxz 


stop 




DE1E 


E9 DD9E R 


c 




jmp 


innerloop 




DE21 




c 


StOp: 








DE21 


80 FB 01 


c 




cmp 


bl,1 


an error was reported% 






c 


; 


je 


RAM size end 


it was end of memory% 


DE24 


75 02 


c 
c 




jne 
jmp 


go on4 

RAM size end 




DE26 


EB E1 


c 
c 
c 
c 
c 




jmp 


noprint 


we're gonna look at every 
segment boundary in protected 
mode to see if there is hole 


DE28 




go on4: 
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DE28 


8B 16 OOCA R 


C 




mov 


dx T dS:[seg fail] 




setup registers expected by 






C 












RAM error 


DE2C 


8E C2 


C 




mov 


es,dx 








DE2E 


8B 3E OOCC R 


C 




mov 


di,dS:[off fail] 






DE32 


A1 OOCE R 


C 




mov 


ax,ds-dwrite 








DE35 


8B 1E 00D0 R 


C 
C 
G 
C 
C 
C 
G 




mov 


bx,ds: dread 








DE39 


E9 DF05 R 




jmp 


RAM error 






it was an error% 






; ptestaddr is 


the code that 


runs in protected mode to test memory above 






C 


; 640k 


bytes. 


It is patterned CLOSELY after the 


memory test code that 






C 
C 
C 
C 


; runs 


in real 


mode . 








DE3C 




ptestaddr : 










DE3C 


B8 0010 


C 




mov 


ax,10h 








DE3F 


8E CO 


C 




mov 


es,ax 






set up es selector% 


DE41 


33 FF 


C 




xor 


di,di 






clear di% 


DE43 


26: 89 05 


C 
C 




mov 


word ptr es: 


[di] 


,ax 


initialize es : [di]% 
first to set parity bit % 


DE46 


26: 8B 05 


C 




mov 


ax, word ptr 


3S: [di] 


mov es: [di] into ax% 


DE49 


F7 DO 


C 




not 


ax 






complement ax% 


DE4B 


26: 89 05 


C 




mov 


word ptr es : 


[di] 


,ax 


mov complement into es : [di]% 


DE4E 


26: 8B 1D 


c 




mov 


bx, word ptr 


es: 


[di] 


mov es:[di] into bx% 


DE51 


3B C3 


c 




cmp 


ax,bx 






is ax = bx?% 


DE53 


75 49 


c 




jne 


endofram 






if hot we passed end of ran% 


DE55 


B9 8000 


c 
c 




mov 


cx,08000h 






load ex with word count for% 
64k bytes% 


DE58 


FC 


c 




eld 








increment direction% 


DE59 




c 


pmemtst 


W1: 










DE59 


8B C7 


c 




mov 


ax,di 






ax = location / 


DE5B 


AB 


c 




stosw 








write location to memory% 


DE5C 


E2 FB 


c 




loop 


pmemtst w1 






write all 64k% 


DE5E 


B9 8000 


c 




mov 


cx,08000h 








DE61 


33 FF 


c 
c 
c 




xor 


di T di 






clear di% 


DE63 




pmemtst 


T1: 










DE63 


8B C7 


c 




mov 


ax,di 






set ax% 


DE65 


26: 8B 1D 


c 




mov 


bx.word ptr 


3S:[di] 


read memory location into bx°/ 


DE68 


3B C3 


c 




cmp 


ax,bx 






compare location with contents / 


DE6A 


75 37 


C 




joe 


ptsterr 






if not equal report error% 


DE6C 


47 


c 




inc 


di 






increment di twice% 


DE6D 


47 


G 




inc 


di 








DE6E 


E2 F3 


G 




loop 


pmemtst r1 








DE70 


B9 8000 


G 




mov 


cx,08000h 






reset loop counter / 


DE73 


33 FF 


G 
C 
C 




xor 


di,di 






clear di% 


DE75 




pmemtst 


W2: 










DE75 


8B C7 


C 




mov 


ax,di 






ax = location / 


DE77 


F7 DO 


C 




not 


ax 






complement location / 


DE79 


AB 


G 




stosw 








write complement location to memory 


DE7A 


E2 F9 


C 




loop 


pmemtst w2 






write all 64k% 


DE7C 


B9 8000 


C 




mov 


cx,08000h 






reset loop counter / 
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DE7F 


33 FF 


C 
C 

C 




xor 


di.di 


; clear di% 


DE81 




pmemtst 


r2: 






DE81 


8B C7 


C 




mov 


ax,di 


; set ax% 


DE83 


F7 DO 


C 




not 


ax 


; complement location% 


DE85 


26: 8B 1D 


C 




mov 


bx,word ptr es : [di] 


;. read memory location into bx% 


DE88 


3B C3 


C 




cmp 


ax,bx 


; compare location with contents% 


DE8A 


75 17 


C 




jne 


ptsterr 


; if not equal report error% 


DE8C 


47 


C 




inc 


di 


; increment di twice% 


DE8D 


47 


C 




inc 


di 




DE8E 


E2 F1 


C 
C 

c 




loop 


pmemtst r2 




DE90 


B9 8000 




mov 


cx,08000h 


; reset loop counter% 


DE93 


33 FF 


c 




xor 


di,di 


; clear di% 


DE95 


8B C7 


c 




mov 


ax,di 


; clear ax% 


DE97 


F3/ AB 


c 




rep 


stosw 


; zero memory% 


DE99 


BO 00 


c 




mov 


al,0 


; no error 


DE9B 


EB 1D 90 


c 
c 

c 




jmp 


history 


; return to real mode% 


DE9E 




endofram: 






DE9E 


BO 01 


c 




mov 


al,1 


; end of memory code 


DEAO 


EB 18 90 


c 
c 
c 




jmp 


history 


; return to real mode% 


DEA3 




ptsterr 








DEA3 


32 D2 


c 




xor 


dl.dl 




DEA5 


8A 36 00D2 R 


c 




mov 


dh,ds:[addr] 




DEA9 


89 16 OOCA R 


c 




mov 


ds:[seg fail],dx 


; save error codes in 


DEAD 


89 3E OOCC R 


c 




mov 


ds: [off fail],di 


; a memory location 


DEB1 


A3 OOCE R 


c 




mov 


ds:[dwrite],ax 


; so that REAL MODE can 


DEB4 


89 1E OODO R 


c 




mov 


ds: [dread], bx 


; print it 


DEB8 


BO 02 


c 
c 
c 




mov 


al,2 


■ error code 


DEBA 




history 












c 








; in location osmerge2+2% 


DEBA 


A2 00A8 R 


c 




mov 


byte ptr ds : [osmerge2+2] , 


al ; error code to report% 


DEBD 


BA 3F00 


c 




mov 


dx,3f00h 


; reset port% 


DECO 


EC 


c 
c 
c 




in 


al,dx 


; bang the port% 

; take the mains offline 

; scotty 


DEC1 


90 


c 




nop 




; incase prefetch que% 


DEC2 


90 


c 




nop 




; has fetched ahead% 


DEC3 


90 


c 




nop 






DEC4 


FA 


c 




cli 




; should never get% 


DEC5 


F4 


c 
c 




hit 




; to this point% 






c 

c 


; REAL MODE AGAIN 








c 






assume c$:Code, ds:data 


es:absO, ss; stack ram 


DEC6 




c 


RAM size end 






DEC6 


OB F6 


c 




or 


si, si 


test warm boot flag 


DEC8 


74 11 


c 




jz 


RAM size end 1 


if CTL ALT DEL sequence, 


DECA 


81 FD 0400 


c 
c 




cmp 


bp,400h 


if RAM >999 then print different pass 
message Dawson MADE me do it!! 


DECE 


72 05 


c 




jb 


rpass 




DEDO 


BE D9C4 R 


c 




mov 


si,cs: (offset spass m) 
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DED3 EB 03 

DED5 

DED5 BE D9BB R 

DED8 

DED8 E8 E540 R 

DEDB 

DEDB 33 CO 

DEDD 8E CO 

DEDF 2E: 8E 1E E538 R 

DEE4 A1 0013 R 

DEE7 3B C5 

DEE9 72 08 

DEEB C7 06 OOCA R 0000 

DEF1 EB 08 

DEF3 

DEF3 8B DD 

DEF5 2B D8 

DEF7 89 1E OOCA R 

DEFB - 

DEFB 8F 06 OOAA R 

DEFF 8F 06 00A8 R 



DF03 EB 30 



DF05 



DF05 52 

DF06 1E 

DF07 50 

DF08 E8 E55F R 

DFOB BE D9CC R 

DFOE E8 E540 R 

DF11 E8 E56C R 

DF14 E4 66 

DF16 24 OF 

DF18 E8 E589 R 



C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 



rpass: 



ppass: 



jmp short ppass 



mov si, cs: (offset pass m) ; Display OK 



call DRomString 



RAM size end 1: 

xor 

mov 

mov 

mov 
; cmp 

cmp 

jb 

mov 

jmp 



ax, ax 
es,ax 



bx = RAM size/16 

ax = 

satisfy assumptions es = = absO seg 



ds,word ptr cs : [set_ds word] 



mor mem: 



mov 
sub 



no pmern: 



pop 
pop 



ax, ds: [memory size] 

ax,280h 

ax,bp 

morjnem 

ds:[seg fail],0 

short no pmern 



bx,bp 
bx,ax 

ds:[seg fail],bx 



word ptr ds : [osmerge2+4] 
word ptr ds: [osmerge2+2] 



see if real memory full% 
if memory > 640k DOS won't load% 
if total memory > real memory% 
see if memory above 640k% 
zero out p-mode mem size% 
dos is ok% 



bp has total mem size at this point 
subtract real mode memory from total% 
memory to get p-mode memory in ax% 
mov p-mode mem size into seg fail location% 



EGA - GWBASIC fix 
restore locations 4aa and 4a8 from 
stack an restore when memory 
count is complete 



GoTo Display Passing Messages 

jmp short i cal ; Go check clock calendar 



RAM error: 



push 


dx ; 


push 


ds ; 


push 


ax ; 


call 


DCrLf ; 


mov 


si, cs: (offset fail m) 


call 


DRomString ; 


call 


DColon ; 


in 


al.sys conf a ; 


and 


al,0Fh ; 


call 


DHexByte ; 



Error message looks like: Fail:CC:yuOO:zzzz:wwww:irrr 

where: cc = RAM configuration number 

yOOO = Segment of failure = dx = es 
zzzz = Offset of failure = di 
wwww = Data that was written = ax 
rrrr = Data that was read = bx 



save failing segment 
save ds 
save failing test pattern. 

Carriage Return, Line Feed 

display fail message. 

display a colon 

get RAM configuration. 

mask valid bits. 

display RAM configuration. 
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DF1B E8 E56C R 

DF1E 8E DA 

DF20 8B C7 

DF22 E8 E578 R 

DF25 E8 E56C R 

DF28 1F 

DF29 8B C3 

DF2B E8 E578 R 

DF2E E8 E55F R 

DF31 1F 

DF32 5A 

DF33 EB A6 



DF35 



DF35 BO 01 
DF37 BA 0070 
DF3A EE 



DF3B 
DF3D 



B4 FE 
CD 1A 



DF3F B8 000A 

DF42 86 C2 

DF44 F6 F2 

DF46 3D 000A 

DF49 73 15 



DF4B 80 FE 3C 
DF4E 73 10 



DF50 80 F9 3C 



C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



call DColon 

mov ds,dx 

mov ax,di 

call DHexLong 

call DColon 

pop ds 

mov ax,bx 

call DHexLong 

call DCrLf 

pop ds 

pop dx 

jmp short RAM_size_end_1 



display a colon 

ds = failing segment = dx 
ax = failing segment = di 
display ds : ax 

display a colon 

ds = failing test pattern = on stack 
ax = what was read = bx 
display ds : ax 



; restore ds 

; restore failing segment 



MM58274 Clock Calendar Device Test 



i cal: 
IF G4T0D 



mov 
mov 
out 



al,01h 
dx,70h 
dx.al 



ENDIF 

; Read Clock Calendar Device. 

mov ah, -2 
int 1Ah 

; Check time & date read. 

; Hundredths of Seconds. 



mov 


ax, 10 


xchg 


al.dl 


div 


dl 


cmp 


ax, 10 


jae 


i cal 1 1 80 



Seconds. 



cmp 
jae 



Minutes, 
cmp 



dh,60 

i cal 1 1 80 



This should fix the factory 
initial powerup problem 
al=1 implies Normal mode, Clock run 
Clock setting reg, interrupt stop 



bx = day (from 1-1 of leap year) 

ch = hour 

cl = minutes 

dh = seconds 

dl = hundredths of seconds 



ax = 10; dl = hundredths 

ax = hundredths; dl = 10 

ah = remainder, al = quotient 

(can only read tenths of seconds.) 

ah should =0, and al should be < 10. 

if not, test chip & write 1-1-80. 



dh = seconds should be < 60. 

if not, test chip & write 1-1-80. 



cl,60 



cl = minutes should be < 60. 
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DF53 


73 OB 


C 
C 
C 
C 
C 




jae 


i cal 1 1 80 


; if not, test chip & write 1-1-80. 






; Hours. 






DF55 


80 FD 18 




cmp 


ch,24 


; ch = hour should be < 24. 


DF58 


73 06 


C 
C 
C 

c 


; Days 


jae 


i cal 1 1 80 


; if not, test chip & write 1-1-80. 


DF5A 


81 FB 0B6A 


c 
c 




cmp 


bx f (2*366)+(6*365) 


; bx = day from leap year mod 8 should 
; be < (0-2921) = (0-0B69h) 


DF5E 


72 52 


c 
c 




jb 


i cal end 


; if so, valid time & day, skip test. 


DF60 




c 
c 
c 


i cal 


1 1 80: 




; else invalid time & day, write 1-1-80. 






; Initialize 


and Stop Clock. 








c 


ENDIF 












c 


IF G4T0D 






DF60 


B8 0015 


c 




mov 


ax,15h 


; interrupt stop, clock stop% 


DF63 


E6 70 


c 




out 


70h,al 


;% 


DF65 


33 CO 


c 




xor 


ax, ax 


;% 


DF67 


E6 7F 


c 




out 


7Fh,al 


; no interrupts programmed% 


DF69 


B8 0005 


c 




mov 


ax, 5 


;% 


DF6C 


E6 70 


c 
c 
c 


ENDIF 


out 


70h,al 


; clock is out of test mode, halted% 
clock setting register is selected% 






c 
c 
c 


; Output test 


pattern of maximum value with all bits set to read/writable ports. 


DF6E 


BE DACA R 




mov 


si, cs: (offset i cal val) 




DF71 


B9 0009 


c 




mov 


ex, 9 


ch keeps ; ex = 9 


DF74 


BA 0074 


c 
c 
c 




mov 


dx,0074h 


dh keeps ; dx = 74h 


DF77 




i cal max: 






DF77 


2E: AC 


c 




lods 


byte ptr cs : [si] 


al get cs:Si (ds overridden!). 


DF79 


8A EO 


c 




mov 


ah,al 


save maximum value. 


DF7B 


EE 


c 
c 




out 


dx,al 


ports 74 through 7C (units of minutes 
to tens of months) get max value. 


DF7C 


EC 


c 




in 


al,dx 


read it back. 


DF7D 


22 C4 


c 




and 


al,ah ; 


mask valid bits. 


DF7F 


3A C4 


c 




cmp 


al,ah ; 


is it equal to the value written? 


DF81 


75 10 


c 
c 
c 




jnz 


i cal err ; 


if not, abort. 


DF83 


42 




inc 


dx ; 


increment to next port 


DF84 


E2 F1 


c 
c 
c 
c 
c 
c 




loop 


i cal max 








ENDIF 












; Write 


out Oh 


(bits of lower nibble rese 


t) test pattern to read/writable ports. 






c 








al kept Oh. 


DF86 


B1 09 


c 




mov 


cl,9 ; 


ch kept 0; ex = 9 


DF88 


B2 74 


c 




mov 


dl,74h ; 


dh kept 0; dx = 74h 


DF8A 




c 


i cal 








DF8A 


EE 


c 
c 




out 


dx,al ; 


ports 74 through 7C (units of minutes 
to tens of months) get Oh. 
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DF8B 


EC 




DF8C 


24 OF 




DF8E 


75 03 




DF90 


42 




DF91 


E2 F7 




DF93 






DF93 


BE DA2E 


R 


DF96 


E8 E540 


R 


DF99 


BE D9CC 


R 


DF9C 


E8 E540 


R 


DF9F 


E8 E55F 


R 


DFA2 


EB 01 




DFA4 


F4 





DFA5 



DFA5 B8 0001 

DFA8 E6 7F 

DFAA 33 DB 

DFAC 33 C9 



DFAE B4 FF 
DFBO CD 1A 



DFB2 



DFB2 



DFB2 BE OA3B R 
-DFB5 E8 E540 R 



DFB8 BO 34 

DFBA BA 0040 

DFBD E8 E1C0 R 

OFCO 75 2E 



in 


al,dx 


and 


al.OFh 


jnz 


i cal err 


inc 


dx 


loop 


i cal 



ENDIF 

i cal err: 

mov si, cs: (offset i calr m) 

call DRomString 

mov si, cs: (offset failjn) 

call DRomString 

call DCrLf 

jmp short i_cal_ok 

hit 

i cal_ok: 

IF G4T0D 



read it back. 

mask valid bits (lower nibble) = Oh? 

if not, abort. 

increment to next port 



else, abort. 



display fail message. 

try to write 1-1-80, regardless. 



ENDIF 



mov 
out 



xor 
xor 



ax,1 
7Fh,al 

bx , bx 
ex, ex 



;% 



Write & Start Clock Calendar Device. 



mov 
int 



i cal end: 



ah,-1 
1Ah 



select 24 hour mode% 

1-1-80 is day 0. 
hours & minutes = 0. 



bx = day (from 1-1 of leap year) 
ch = hour 
cl = minutes 

Output: ah = -1 implies date/time err. 
ah = implies date/time OK. 



i8254 Real-Time Time Clock Test (p_8253_1 tested in i_dmat) 



assume cs:Code, ds:data, es:abs0, ss:Stack_ram 

irtc : 

; String to be displayed regardless of results. 

mov si, cs: (offset i_rtc_m) 
call DRomString 

; Test 18254 real-time clock interrupt p_timer counter (p_8253_0). 

mov al,034h ; 00 11 010 -> p_8253_0, Isb 1st, mode 2, no BCD 

mov dx,p 8253 ; select real-time clock counter 

call rtc_chk 

jnz i rtc err ; if nz, ah has error code to report. 
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DFC2 BO 01 
DFC4 E6 61 



DFC6 BO B4 

DFC8 BA 0042 

DFCB E8 E1C0 R 

DFCE BO 00 

DFDO E6 61 

DFD2 75 1C 



DFD4 BO 36 

DFD6 E6 43 

DFD8 B8 0000 

DFDB E6 40 

DFDD 8A C4 

DFDF E6 40 



DFE1 


BO B6 


DFE3 


E6 43 


DFE5 


B8 0266 


DFE8 


E6 42 


DFEA 


8A C4 


DFEC 


E6 42 



DFEE EB 1C 



DFFO 








DFFO 


BE 


D9CC 


R 


DFF3 


E8 


E540 


R 


DFF6 


BE 


DA44 


R 


DFF9 


8A 


C4 




DFFB 


32 


E4 




DFFD 


D1 


EO 




DFFF 


D1 


EO 




E001 


03 


FO 




E003 


E8 


E540 


R 


E006 


E8 


E55F 


R 


E009 
EOOB 


EB 
F4 


OD 





c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 



Test 18254 tone generator p timer counter (p 8253 2). 



mov al, 1 

out p kctrl,al 



mov al , 0B4h 

mov dx,p_8253_2 

call rtc chk 

mov al,0 

out p kctrl,al 



clear kb interrupts, reset kb, disable parity 

turn off speaker data -- bit #1 

turn on speaker gate to p 8253 2 — bit #0 

10 11 010 -> p_8253_2, lsb 1st, mode 2, no BCD 
select tone generator counter 



clear kb interrupts, reset kb, disable parity 
turn off speaker data & gate — bits #1 & #0 



jnz 



i rtc err 



if nz, ah has error code to report. 
; Initialize i8254 real-time clock interrupt p timer counter (p 8253 0). 

; select real time clock counter 

; load real time clock count 



mov 


al,tOcmd 




out 


p 8253 Ctrl 


al 


mov 


ax,tOcount 




out 


p 8253 0,al 




mov 


al,ah 




out 


p 8253 0,al 





Initialize i8254 tone generator p_timer counter (p 8253 2). 

; select tone generator counter 

; load tone generator count 



mov 


al,t2cmd 


out 


p 8253 ctrl,al 


mov 


ax,t2count 


out 


p 8253 2,al 


mov 


al,ah 


out 


p 8253 2,al 


Imp 


short i rtc ok 



i_rtc_err : 

mov si, cs: (offset fail m) 
call DRomString 



; ah has error code to report. 
; display fail message. 



mov 



si,cs:(offset i rtc lo m-(4*1)) 



mov 


al,ah 


xor 


ah, ah 


shl 


ax,1 


shl 


ax,1 


add 


si, ax 


call 


DRomString 


call 


DCrLf 


jmp 


short i rtc end 


hit 





al = error code =(1,2 or, 3) 
ax = error code =(1,2 or, 3) 
ax = 2*(error code) = (2, 4, or 6) 
ax = 4*(error code) = (4, 8, or 12) 
index to (LO, HI, or NR message.) 
display failing mode. 
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C 








EOOC 






C 


L rtc 


ok: 




EOOC 


BE 


D9BB R 


C 




mov 


si, cs: (offset pass m) 


EOOF 


E8 


E540 R 


C 
C 
C 




call 


DRomString 


E012 


BO 


48 




mov 


al,48h ; Check Point #8 


E014 


BA 


0378 


C 




mov 


dx,378h ; parallel port data port address 


E017 


EE 




C 
C 
C 




out 


dx,al ; output "Running- Checkpoint 8" 


E018 






L rtc 


end: 




E018 


B8 


0E07 


C 




mov 


ax,(0Eh*100h)+BEL ; beep keyboard 


E01B 


CD 


10 


C 

C 

C 

C 

C 

C 

C ( 

C 

C ( 




int 


10h 












assume cs:COde, ds : nothing, es: nothing, ss : stack ram 


E01D 


E9 


E2AD R 




jmp 


pcinit 


E020 






jiagnostics 1 


endp 


E020 






:ode ends 










c . 

c 

c 

c 

c 

c 

c 

c 

C ( 


Lnclude pwrupla 


.asm 








Filename: pwrupla. src 


E020 






:ode 


segment public 'ROM' 








c 
c 
c 
c 

C ] 




assume 


cs:Code, ds: nothing, es : nothing, ss : nothing 


E05B 








ORG 


0E05Bh ; ; 


E05B 






l hard 


reset 


prOC ; ; 


E05B 


E9 


DAD3 R 


c 




jmp 


diagnostics 1 ; ; 


E05E 






C ] 

c 
c 
c 
c 
c 


l hard 


reset 


endp ; ; 










Install 


GDT ENTRIES 










Input: 


None. 








c 
c 
c 
c 
c 

C ] 




Output: 


None. 










Trash: 


ax = ex = destroyed. 


E05E 






Ljdt 


proc 


near 








c 
c 
c 






assume cs:COde, ds: nothing, es : nothing, ss : stack ram 


E05E 


1E 






push 


ds ; save registers 


E05F 


06 




c 




push 


es 


E060 


57 




c 




push 


di 


E061 


56 




c 
c 
c 




push 


si 








Initialize the gdt with gdt ent. 
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C 
C 
C 
C 






assume 


cs:Code, dS:Code 


, es:data, ss: stack ram 


E062 


8C C8 




mov 


ax , cs 






• satisfy as.sumptions 


E064 


8E D8 


C 




mov 


ds , ax 






; 


E066 


B8 0040 


C 




mov 


ax , date 


3_seg 






E069 


8E CO 


C 




mov 


es , ax 






; es:di = data seg : gdt 


E06B 


B8 00AA R 


C 




mov 


ax , es : 


offset gdt] 






E06E 


8B F8 


C 




mov 


di,ax 








EQ70 


B8 E080 R 


C 




mov 


ax,cs:( 


offset gdt ent) 


; ax - offset gdt ent 


E073 


8B F0 


c 




mov 


si , ax 






; si = offset gdt ent 


E075 


B9 0010 


c 
c 
c 




mov 


ex, 16 






; loop 16 times for 16 words 


E078 


A5 


i gdtO: 


movsw 








; es:di++ gets ds : si 


E079 


E2 FD 


c 
c 
c 




loop 


i gdtO 






; until ex = 0. 


E07B 


5E 




pop 


si 






; restore registers 


E07C 


5F 


€ 




pop 


di 








E07D 


07 


C 




pop 


es 








E07E 


1F 


C 




pop 


ds 








E07F 


C3 


c 
c 
c 




ret 










E080 


0000 0000 0000 0000 


gdt ent 




dw 


0,0,0,0 




first entry all 0's 


E088 


FFFF 


c 






dw 


Offffh 




next entry 8h 


E08A 


0000 


c 






dw 







to be filled in 


E08C 


OF 


c 






db 


Ofh 




segment OfOOOh 


E08D 


9A 


c 






db 


9ah 




kernel code protection 


E08E 


0000 


c 






dw 







always 


E090 


FFFF 


c 






dw 


Offffh 




next entry 10h 


E092 


0000 


■c 






d.w 


.0 




offset is 


E094 


00 


c 






db 







filled in by addr in program 


E095 


92 


c 






db 


92h 




kernel data 


E096 


0000 


c 






dw 







always Q 


£098 


0020 


c 






dw 


32 




limit of gdt 


E09A 


04AA 


c 






dw 


4aah 




offset of gdt 


E09C 


00 


€ 






db 


.0 




segment of gdt 


E09D 


92 


c 






db 


92h 




kdata 


E09E 


0000 


c 






dw 







always 


mm 




c 
c 
c 
c 

:C 
C 
C 


ijdt 




endp 












; 


Determine System Configur.at. 


Lon from Switches and Enable Video. 








Input: 


None . 












€ 
C 
C 
C 


; 


Output 


None . 












■; 


Trash : 


ax & ex 


destroyed. 






EQAO 




I 
C 


i d init 


proc 


near 










C 

c 

€ 
C 






assume 


cs:COde, ds 


noth] 


.ng, es: nothing, ss : stack ram 






; ; Here 


is the 


code for 


putting the 


DEB in Transparent Mode. 
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EOAO 50 

E0A1 52 

E0A2 BA 03DD 

E0A5 BO 01 

E0A7 EE 

E0A8 42 

E0A9 42 

EOAA FE C8 

EOAC EE 

EOAD 5A 

EOAE 58 



EOAF 1E 

EOBO B8 0040 
E0B3 8E D8 



E0B5 BO 30 
E0B7 A3 0010 R 
EOBA CD 10 



EOBC B8 0003 
EOBF A3 0010 R 
E0C2 CD 10 



E0C4 E4 67 

E0C6 24 FO 

E0C8 OC OD 

EOCA 8A C8 

EOCC B5 03 

EOCE 24 30 

EODO 74 2C 



push 


ax 


push 


dx 


mov 


dx,03DDh 


mov 


al,1 


out 


dx,al 


inc 


dx 


inc 


dx 


dec 


al 


out 


dx,al 


pop 


dx 


pop 


ax 



DEB I/O Address Register port address 
select Mode Control Register 



DEB Mode Control Register address 
set DEB Transparent Mode 



Initialize both boards. 

assume cs-code, dsrdata, es : nothing, ss : stack ram 



push ds 



mov 
mov 



ax, data seg 
ds,ax 



save registers 

ds = ax = data seg = 0040h. 
(ah = 0.) 



Initialize monochrome board. 



mov 


al,30h 


; switch bits for monochrome 


mov 


word ptr ds:[ switch bits], ax 


; set data for monochrome. 


INT 


10h 


; ah = = v set mode. 



Initialize color board. 



mov 


ax r 0003h 


; switch bits for not monochrome 


mov 


word ptr ds: [switch bits], ax 


; set data for color. 


INT 


10h 


; ah = = v set mode. 



Determine system configuration from switches (low byte of switch_bits) 
al,sys_conf_b 



in 



and 


al,0F0h 


or 


al,00Dh 


mov 


cl,al 


mov 


ch,03h 


and 


al,030h 


J'z 


i d ok 



read high nibble of 

system configuration switches. 

bits #7 - #6: (number of FDU's)-1 

bits #5 - #4: monitor type 

mask off low nibble (keep high nibble) 

of low byte; clear high byte. 

ALWAYS 64k planar RAM and >= 1 FDU! 

cl is ok, excepts bits #5 & #4. 
initialize display to mode 3 (default). 

isolate display switches(bits #5 & #4). 
if zero, EGA adapter present. 



Initialize System Variables. 
; You don't have an EGA card so you can initialize the master table pointer 
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E0D2 C7 06 0084 R E297 R 
E0D8 8C 0E 0086 R 



EODC 3C 30 
EODE 75 1E 



E0E0 


1E 


E0E1 


B8 B000 


E0E4 


8E D8 


E0E6 


BO A5 


E0E8 


A2 0000 


E0EB 


8A 26 0000 


E0EF 


1F 



EOFO 3A C4 

E0F2 75 04 

E0F4 B5 07 

E0F6 EB 06 

E0F8 

E0F8 80 E1 EF 

EOFB 80 C9 20 

EOFE 



EOFE 


E4 66 


E100 


A8 10 


E102 


75 03 


E104 


80 C9 02 


E107 




E107 


32 E4 


E109 


8A C1 


E10B 


A3 0010 R 



E10E BB C000 

E111 

E111 8E DB 

E113 33 F6 



mov word ptr ds : [master_tbl_ptr+0000h],cs : (offset mastab) 
mov word ptr ds : [master_tbl_ptr+0002h],cs 



cmp al , 030h 
jnz i d ok 



is it the monochrome board? 

if not, 40x25 or 80x25 color ok. 



assume cs:Code, ds:v ram, es : nothing, ss: stack ram 



push 


ds 


mov 


ax, para mono 


mov 


ds,ax 


mov 


al,0A5h 


mov 


byte ptr ds : [OOOOh] ,al 


mov 


ah, byte ptr ds: [OOOOh] 


pop 


ds 



save ds = data seg = 0040h. 
satisfy assumptions 

test pattern 

if so, is monochrome there? 

read monochrome RAM 

restore ds = data seg = 0040h. 



assume csrcode, ds : data, es : nothing, ss : stack ram 



cmp 
jnz 

mov 
jmp 

i_d_80x25: 
and 
or 

i d ok: 



al,ah 
i_d_80x25 

ch,07h 
short i d ok 



cl.OEFh 
cl,020h 



if monochrome RAM is there, 
then the board must be there! 
if not, default to 80x25 color 
if there, we believe switches, 
initialize display to mode #7. 



reset bit #4 for 80x25 color, 
set bit #5 for 80x25 color. 



Set system configuration (switch bits) from switches. 



i d SW: 



in 


al.sys conf 


a 


get switch info% 


test 


al,10h 






80287 present?% 


jnz 


i d sw 






no, move on% 


or 


cl,02 






yes, record it% 


xor 


ah, ah 






ah = 0. 


mov 


al,cl 






get data from switches. 


mov 


word ptr 


ds 


[switch bits], ax 


save data from switches 



Test for and Initialize optional video ROMs 



mov 



assume cs : code, ds: nothing, es : nothing, ss : nothing 
bx,0C000h ; load starting segment 



vrom scan loop: 

mov ds,bx 
xor si, si 



; bx has pending segment 
; offset OOOOh 
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E115 


81 3C 


AA55 


C 
C 




cmp 


word ptr ds : [si],0AA55h 








E119 


75 33 




C 
C 

C 




jne 


vrom scan next 








E11B 


B8 0040 




mov 


ax, data seg 






satisfy assumptions 


E11E 


8E CO 




C 




mov 


es,ax 






for es in rom check 


E120 


33 F6 




C 
C 
C 




xor 


si, si 






dS:Si points to ROM to check 










NOW: 


ds:si = pointer to ROM 


to 


be tested 








C 






bx = ds = pending segment 


of 


ROM 


under test 








c 
c 
c 
c 
c 






es: = data segment 


















assume cs : code, ds : nothing, 


es:( 


jata, ss: nothing 


E122 


33 CO 






xor 


ax, ax 






clear al 


E124 


8A 64 


02 


c 




mov 


ah, byte ptr ds : [si+2] 






ax = (ROM length/512) * 256 


E127 


D1 E0 




c 
c 




shl 


ax,1 






ax = (ROM length/512) * 512 
ax = ROM length in bytes 


E129 


50 




c 




push 


ax 






save ROM length 


E12A 


B1 04 




c 




mov 


cl,4 








E12C 


D3 E8 




c 




shr 


ax,cl 






advance segment for next ROM 


E12E 


03 D8 




c 




add 


bx,ax 






by the number of paragraphs 


E130 


59 




c 
c 
c 




pop 


ex 






restore ROM length in ex 


E131 


E8 E52D R 




call 


rom checksum cnt 






get the checksum of the cx- 








c 












byte ROM. 


E134 


74 03 




c 




jz 


vrom chksum ok 






OK if the checksum was zero 


E136 


EB 16 


90 


c 
c 
c 




jmp 


vrom err 






error the checksum wasn't zero 


E139 






vrom 


chksum ok: 










E139 


53 




c 
c 

0003 C 




push 


bx 






save the segment for next ROM 


E13A 


26: C7 


06 0067 R 




mov 


word ptr es : [io rom init] 


,0003h 




E141 


26: 8C 


1E 0069 R 


c 




mov 


word ptr es:[io rom seg], 


ds 






E146 


26: FF 


1E 0067 R 


c 
c 
c 
c 
c 
c 
c 




call 


dword ptr es : [io rom init 


] 




initialize the ROM 


E14B 


5B 






pop 


bx 






restore segment for next ROM 


E14C 


EB 04 






jmp 


short vrom scan exit 








E14E 






vrom 


err: 










E14E 






c 


vrom 


scan next: 










E14E 


81 C3 


0080 


c 
c 
c 




add 


bx,(800h/10h) 






add 2k to the pending segment 


E152 






vrom 


scan exit: 










E152 


81 FB C800 


c 




cmp 


bx,OC800h 






are we done? 


E156 


7C B9 




c 
c 




jnge 


vrom scan loop 






if not, continue 








c 
c 
c 
c 


; Determine mode to initialize display monitor (from switches). 


E158 


A8 20 






test 


al,020h 






does user want 40x25 color? 


E15A 


75 02 




c 




jnz 


i d mode 








E15C 


B5 01 




c 




mov 


ch,01h 






if so, initialize mode #1. 


E15E 






c 


i d mode: 
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C 
C 
C 
C 


; Initialize desire board (from switches). 


E15E 


8A C5 




mov 


al,ch ; transfer display mode to al. 


E160 


CD 10 




C 

c 
c 


INT 


10h ; ah = - v set mode. 


E162 


1F 




pop 


ds ; restore registers 


E163 


C3 




c 

c 

c . 

c 

c 

c 

c 

c 


ret 




E164 






l d init 


endp 








Install Vector Table 








Input: 


None. 








c 
c 
c 
c 
c 

C ] 


Output 


None. 








Trash: 


ax = ex = destroyed. 


E164 






. vector 


proc near 








c 
c 
c 




assume cs:Code, ds : nothing, es : nothing, ss= stack ram 


E164 


1E 




push 


ds ; save registers 


E165 


06 




c 


push 


es 


E166 


57 




c 


push 


di 


E167 


56 




c 
c 

C ; 

c 
c 
c 
c 


push 


si 








Initialize Interrupt Vectors OOh through 07h to known routines. 










assume cs:COde, ds : abs0, es ; absO, ss: stack ram 


E168 


33 FF 




xor 


di,di 


satisfy assumptions 


E16A 


8E DF 




c 


mov 


ds,di 


ds = es = ax = absO seg = 


E16C 


8E C7 




c 


mov 


es,dl 


es:di = absO seg : int001ocn 


E16E 


B8 FF23 R 




c 


mov 


ax, cs: (offset ill int) 


ax = offset ill int 


E171 


B9 0008 




c 
c 

C i 


mov 


cx,(07h-00h)+1 


load INT's OOh through 07h. 


E174 


AB 




vecO: stosw 


; es : di++ gets offset ill int 


E175 


80 0D 




c 


mov 


word ptr ds:[di],cs 


es:di gets cs 


E177 


47 




c 


inc 


di 


di++ 


E178 


47 




c 


inc 


di 


E179 


E2 F9 




c 
c 
c 


loop 


i vecO ; until ex = O, 










; load INT's 02h and 05h 


E17B 


C7 06 0014 R 


FF54 R 


c 


mov 


word ptr ds : [int051ocn],cs: (offset s int) 


E181; 


C7 06 0008 R 


F85F R 


c 


mov 


word ptr ds : [int021ocn],cs : (offset n int) 


E187 


C7 06 0018 R 


E638 R 


G 


mov 


word ptr d'S: [int061ocn],cs:(offset op int) ; % 








C ; 

c 
c 
c 
c 


Initialize Interrupt Vectors 08h through TEh to known routines. 










assume cs.-code, dS:Code, es : ahsO, ss: stack ram 


E18D 


80 C8 




mov 


ax,cs ; satisfy assumptions 


E18E 


8E D8 




c 


mov 


ds,ax ; ds = ax = cs 
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E191 BE FEF3 R 

E194 B1 18 

E196 A5 

E197 AB 

E198 E2 FC 

E19A 33 CO 

E19C B9 01B8 

E19F F3/ AB 

E1A1 5E 

E1A2 5F 

E1A3 07 

E1A4 1F 

E1A5 C3 

E1A6 



E1A6 



E1A6 BA 0020 

E1A9 BO 13 

E1AB EE 

E1AC 42 

E1AD BO 08 

E1AF EE 



E1B0 BO OD 

E1B2 EE 

E1B3 BO FF 

E1B5 EE 

E1B6 C3 

E1B7 



C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



mov si, cs: (offset i vec_tbl) 

mov cl,(1Fh-08h)+1 

i vec8: movsw 
stosw 
loop i vec8 



dS:Si = code seg : i vec tbl 
es:di = abs0_seg : int081ocn 
load INT's 08h through 1Fh. 

es:di++ gets ds : si (offset) 
es:di++ gets ax = cs (segment) 
until ex = 0. 



; Initialize Interrupt Vectors 20h and above to zero, 
ax, ax 

cx,((03F0h-0080h)/2) 
stosw 



xor 



mov 



rep 

pop 
pop 
pop 
pop 
ret 



ax = 

es:di = absO seg : int201ocn 
clear 0:0080h to 0:03F0h 
don't blow away stack! 
es:di++ gets 



i vector 



si 
di 
es 
ds 



endp 



restore registers 



Initialize & Disable 8259A Programmable Interrupt Controller. 

Input: None. 
Output: None. 

Trash: al & dx destroyed. 



i pic init 



mov 
mov 
out 

inc 
mov 
out 



mov 
out 

mov 
out 
ret 

i pic init 



proc 
assume 

dx,pic_ 
al,pic_ 
dx,al 

dx 

al,pic 

dx,al 



near 



cs:COde, ds: nothing, es : nothing, ss : stack ram 




icwl 



icw2 



al,pic 
dx,al 

al,pic 
dx,al 



endp 



icw4 



off msk 



; dx = pic_0 (8259A 'control' port) 

; edge triggered, single, icw4 to follow 



; dx = pic_1 (8259A 'data' port) 
; interrupt vector base address 

since we are single mode (no slave), skip icw3 



dx = pic_1 (8259A 'data' port) 
not special fully nested, buffered, 
master, normal end of int, 8086 mode 

mask all interrupts off for now 
dx = pic 1 (8259A 'data' port) 
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E1B7 



E1B7 


E6 21 


E1B9 


8A EO 


E1BB 


E4 21 


E1BD 


3A EO 


E1BF 


C3 



E1C0 



E1C0 



E1C0 8A EO 
E1C2 B9 FFFF 



E1C5 8B D9 

E1C7 E6 43 

E1C9 32 CO 

E1CB EE 

E1CC FE CO 

E1CE EE 

E1CF 



C 
C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



Output Mask to 8259A Programmable Interrupt Controller. 
Input: AL = mask pattern 
Output: Flags 
Trash: ah destroyed. 



i out mask 



out 

mov 

in 

cmp 

ret 

i out mask 



proc near 

assume cs:Code, ds : nothing, es : nothing, ss : stack ram 



pic 1,al 
ah,al 
al,pic 1 
ah,al 



endp 



output interrupt mask pattern 

save pattern for compar 

get mask from 8259 

the same ? 

return flags = result of compare 



8254 p timer test for one p timer counter channel 

Input: al = 8254 p_timer control byte 

dx = port address of 8254 p timer data (counter) 

Output: zf = set (z status) if no error; reset (nz status) if error 
ah = Error codes: -> No Error! 

1 -> Low below time interval window. 

2 -> High above time interval window. 

3 -> No Response. 

Trash: al, bx & ex destroyed. 



rtc chk proc near 

assume cs:COde, ds : nothing, es : nothing, ss : nothing 



mov ah,al 
mov cx,0FFFFh 



; save control byte for later. 

; time out for both Register Bit Tests. 



; Register Bit Test (All Reset): Count down from 100h until all bits reset. 

; bx gets all its bits set. 
; send i8254 p timer control byte. 



al = OOh 

load low byte of p timer count. 

al = 01h 

load high byte of p timer count. 



mov 


bx,cx 


out 


p 8253 ctrl.al 


xor 


al,al 


out 


dx,al 


inc 


al 


out 


dx,al 



rtc chk reset lp : 
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E1CF 


8A C4 


E1D1 


24 CO 


E1D3 


E6 43 


E1D5 


EC 


E1D6 


22 D8 


E1D8 


EC 


E1D9 


22 F8 


E1DB 


OB DB 


E1DD 


74 05 


E1DF 


E2 EE 


E1E1 




E1E1 


B4 03 


E1E3 


C3 



E1E4 



E1E4 


33 DB 


E1E6 


8A C4 


E1E8 


E6 43 


E1EA 


32 CO 


E1EC 


EE 


E1ED 


EE 


E1EE 




E1EE 


8A C4 


E1F0 


24 CO 


E1F2 


E6 43 


E1F4 


EC 


E1F5 


OA D8 


E1F7 


EC 


E1F8 


OA F8 


E1FA 


83 FB FF 


E1FD 


74 05 


E1FF 


E2 ED 


E201 




E201 


B4 03 


E203 


C3 



E204 



E204 8A C4 



C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



mov 
and 
out 

in 
and 
in 
and 

or 
jz 
loop 



al,ah 
al.OCOh 
p_8253_ctrl , al 

al,dx 
bl.al 
al,dx 
bh,al 

bx,bx 

rtc chk_reset_ok 

rtc chk reset lp 



rtc_chk_reset_err : 
mov ah, 3 
ret 

rtc chk reset ok: 



get control byte for read. 

mask off all but top 2 bits. 

send latching control byte for read. 

get low byte of p timer count, 
'and' low byte. 

get high byte of p timer count, 
'and' high byte. 

is bx = 0? 

if so, we're done. 

if not, continue reading. 

(Note: loops less than 16 times.) 

time out. 

Error #3. (No Response.) 

return nz status (loop leaves zf ok). 



Register Bit Test (All Set): Count down from Oh (FFFFh+1) until all bits set. 



xor 

mov 
out 

xor 
out 
out 



bx,bx 

al,ah 
p_8253_ctrl , al 

al,al 
dx,al 
dx,al 



rtc chk set_lp : 

mov al,ah 

and 

out 



al.OCOh 

p 8253 ctrl,al 



in 
or 
in 
or 

cmp 

jz 

loop 



al,dx 
bl,al 
al,dx 
bh,al 

bx,0FFFFh 
rtc chk set_ok 
rtc chk set lp 



rtc chk set_err : 

mov ah, 3 
ret 



bx gets all its bits reset. 

get control byte for load, 
send i8254 p timer control byte. 

al = OOh 

load low byte of p timer count. 

load high byte of p timer count. 



get control byte for read. 

mask off all but top 2 bits. 

send latching control byte for read. 

get low byte of p_timer count, 
'or' low byte. 

get high byte of p timer count, 
'or' high byte. 

is bx = OFFFFh? 

if so, we're done. 

if not, continue reading. 

(Note: loops less than 16 times.) 

time out. 

Error #3. (No Response.) 

return nz status (loop leaves zf ok). 



rtc chk set ok: 

; p timer Time Window Test: Test p timer versus CPU & see if it falls within spec, 
mov al,ah ; get control byte for read. 
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E206 24 CO 

E208 E6 43 

E20A EC 

E20B 8A D8 

E20D EC 

E20E 8A F8 

E210 8A C4 

E212 24 CO 

E214 E6 43 

E216 EC 

E217 8A C8 

E219 EC 

E21A 8A E8 

E21C 2B D9 



E21E B4 02 

E220 83 FB OE 

E223 77 09 

E225 FE CC 

E227 83 FB 04 

E22A 72 02 

E22C FE CC 

E22E 
E22E 

E22E C3 



E22F 



E22F 



and 


al.0C.0h 


out 


p 8253 ctrl,al 


in 


al,dx 


mov 


bl.al 


in 


al,dx 


mov 


bh,al 


mov 


al,ah 


and 


al,0C0h 


out 


p 8253 ctrl,al 


in 


al.dx 


mov 


cl,al 


in 


al T dx 


mov 


ch,al 



sub bx,cx 
Do Time Range Checking (4 <= bx < 



; mask off all but top 2 bits. 

; send latching control byte for read. 

get low byte of p timer count, 
save low byte. 

get high byte of pjtimer count, 
save high byte. 

get control byte for read. 

mask off all but top 2 bits. 

send latching control byte for read. 

get low byte of p timer count, 
save low byte. 

get high byte of p_timer count, 
save high byte. 

calculate time difference. 



= 14). 



mov 


ah, 2 


cmp 


bx,14 


ja 


rtc chk high 


dec 


ah 


cmp 


bx,4 


jb 


rtc chk low 



dec 

rtc chk high: 
rtc chk low: 
ret 

rtc chk endp 



ah 



Error #2. (High above time window.) 
return nz status, (ja has zf reset.) 
Error #1. (Low below time window.) 
return nz status, (jb has zf reset.) 
Error #0. (No Error!) return z status. 



RAM (64k) Storage Test. 

Input: dx = segment of RAM to be tested 



Output: 


zf 




es:di 




ax 




bx 




ex 


NOTE: 




Trash: 


None. 



= set (z status) if no error; reset (nz status) if error 

= dx:di = failing RAM location if error; else di = 0. 

= test pattern (what was written). 

= if error, what was read. 

= number left to test if error; else ex = 0. 

If CX is zero and ZF is nz then parity error occured. 



memtst proc near 

assume cs:COde, ds : nothing, es : nothing, ss : nothing 



1-128 



ROM BIOS Listing 



ROM BIOS Listing 



E22F 


B9 8000 


C 
C 




mov 


cx,08000h ; 


get word count 

(64k = 32k * 2 bytes/word) 


E232 


8E C2 


C 




mov 


es,dx 




E234 


33 FF 


C 




xor 


di,di ; 


es:di = address 


E236 




C 


memtst 


W1: 






E236 


8B C7 


C 




mov 


ax,di ; 


data = offset 


E238 


AB 


C 




stqsw 






E239 


E2 FB 


C 
C 
C 




loop 


memtst w1 




E23B 


8E DA 




mov 


ds,dx 




E23D 


33 DB 


C 




xor 


bx,bx 


ds:bx = address 


E23F 


B9 8000 


C 




mov 


cx,08000h 


word count 


E242 




C 


memtst 


T1: 






E242 


8B 07 


C 




mov 


ax,[bx] 


read data 


E244 


3B C3 


C 




cmp 


ax,bx 


verify data 


E246 


75 2C 


c 




jne 


memtst err 




E248 


43 


c 




inc 


bx 




E249 


43 


c 




inc 


bx 


next address 


E24A 


E2 F6 


c 
c 
c 




loop 


memtst ri 




E24C 


B9 8000 




mov 


cx,08000h 


word count 


E24F 




c 


memtst 


W2: 




address is already ok 


E24F 


8B C7 


c 




mov 


ax,di 


data = offset 


E251 


F7 DO 


c 




not 


ax 


complement it 


E253 


AB 


c 




stosw 




fill memory 


E254 


E2 F9 


c 
c 
c 
c 
c 




loop 


memtst w2 




E256 


B9 8000 




mov 


cx,08000h 


word count 


E259 




memtst 


r2: 






E259 


8B 07 


c 




mov 


ax,[bx] 


read data 


E25B 


F7 DO 


c 




not 


ax 


complement 


E25D 


3B C3 


c 




cmp 


ax,bx 


verify 


E25F 


75 OF 


c 
c 
c 




jne 


memtst err c 




E261 


43 




inc 


bx 


update address 


E262 


43 


c 




inc 


bx 




E263 


E2 F4 


c 




loop 


memtst r2 




E265 


B8 0000 


c 




mov 


ax,0 


; to clear memory 


E268 


B9 8000 


c 




mov 


cx,08000h 


; word count 


E26B 


F3/ AB 


c 




rep 


stosw 




E26D 


OB CO 


c 
c 


ENDIF 


or 


ax, ax 


; set ZF 


E26F 


C3 


c 
c 
c 




ret 






E270 




memtst 


err c : 






E270 


F7 DO 


c 




not 


ax 


; error during complemented 


E272 


F7 D3 


c 
c 
c 




not 


bx 


; address test 


E274 




memtst 


err-. 






E274 


93 


c 




xchg 


ax,bx 


; return registers as specified 


E275 


C3 


c 
c 
c 
c 




ret 






E276 




memtst 




endp 
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E276 




C 
C 
C 
C 

c 
c 


:ode ends 
include pwrupC 


J.asm 








Filename: pwrupO.src 








c 
c 




This module includes temporary hardware initialization. 






c 
c 
c 
c 

c , 
c 

C c 

c 
c 
c 




includes Diagnostics 
Cold Boot 
Device Drivers 




E276 




ode 


segment public 'ROM' 
extrn i13 in : word 
assume cs:Code, ds : nothing, es: 


;% 
nothing, ss : nothing 


E276 




c 

c P 
c 

C o 

c 
c 
c 

C p 

c 
c 
c 

Q 


datal 


proc near 




E276 


4F 70 74 69 6F 6E 
61 6C 20 52 4F 4D 
20 61 74 20 00 


pt ROM m 


db 'Optional ROM at 


\NUL 


E287 
E289 
E28B 
E28D 


03BC 
0378 
0278 
0000 


tbl 


dw 
dw 
dw 
dw 


prt data a 
prt data b 
prt data c 



; printer in port address space 
; always on mother board. 

printer in port address space 

no printer 


E28F 
E291 


0052 
0050 


C sec tbJ 
C 

Q 


. dw 
dw 


sec ctl b 
sec ctl a 


rs232 SCC channel B 
rs232 SCC channel A 


E293 
E295 


DAD3 R 
F000 


C 

c 

C alt ret 
C 

c 


dw 
dw 


diagnostics 1 

code seg ; 


Z8000 and Z8530 

NOT USED in 6300 PLUS!! 

OOh Z8000 restart sequence offset 

04h Z8000 restart sequence segment 


E297 


0016 


C mastab 

c 


dw 


((nit end)-(mastab)) ; 


OOh master table byte length 


E299 
E29B 


CBBF R 
F000 


C 
C 

c 




dw 
dw 


kb data table ; 
code seg ; 


02h kb xlation table offset 
04h kb xlation table segment 


E29D 
E29F 


FA6E R 
F000 


c 
c 
c 




dw 
dw 


font lo 8x8 ; 
code seg ; 


06h 1st 128 char.s 8x8 font offset 
08h 1st 128 char.s 8x8 font segment 


E2A1 
E2A3 


C060 R 
F000 


c 
c 

c 




dw 
dw 


font lo 8x16 ; 
code seg ; 


OAh 1st 128 char.s 8x16 font offset 
OCh 1st 128 char.s 8x16 font segment 


E2A5 
E2A7 


0000 
0000 


c 
c 
c 




dw 
dw 


; 
; 


OEh 2nd 128 char.s 8x16 font offset 
10h 2nd 128 char.s 8x16 font segment 


E2A9 
E2AB 


0000 
0000 


c 
c 
c 




dw 
dw 


; 
; 


12h soft font utility offset 
14h soft font utility segment 
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E2AD 
E2AD 



E2AD 



E2AD B8 0040 
E2B0 8E D8 
E2B2 8E CO 



E2B4 


9C 




E2B5 


FA 




E2B6 


BA 


0061 


E2B9 


BO 


40 


E2BB 


EE 




E2BC 


33 


C9 


E2BE 


E2 


FE 


E2C0 


B4 


01 


E2C2 


E8 


E4B3 R 


E2C5 


89 


OE 0072 R 


E2C9 


33 


C9 


E2CB 


E2 


FE 


E2CD 






E2CD 


E4 64 


E2CF 


A8 


01 


E2D1 


74 09 


E2D3 


E4 60 


E2D5 


3C 


AA 


E2D7 


75 


F4 


E2D9 


A3 0072 R 


E2DC 






E2DC 


E2 


EF 


E2DE 


33 


C9 



c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



; 16h etc. . 



mt end label word 
pO datal endp 



Initialize the basic hardware, 
Set up the interrupt pointers, 
Initialize all RAM variables, 
Clear the screen, 
Initialize the disk drivers, 
and perform the cold boot. 



pcinit proc near 



assume cs:Code, ds:data, es:data, ss:Stack_ram 
extrn bios install: near 



mov ax,data_seg 
mov ds,ax 
mov es,ax 

Initialize Keyboard Controller. 



satisfy assumptions 



pushf 




cli 




mov 


dx,p kctrl 


mov 


al,40h 


out 


dx,al 


xor 


ex, ex 


loop 


$ 



mov ah,1 

call kb cmd send 

mov word ptr ds : [reset flag], ex 



xor ex, ex ; delay 

loop $ 
; Flush any keyboard scan code and store AAh if we get it. 



save flags and 
disable interrupts 

dx = p_kctrl 

remove keyboard reset 



delay 



; enable self test 



kb_flush: 
in 
test 

jz 
in 
emp 
jne 
mov 
kb flush_back: 
loop 

xor 



al,kb status 

al,1 

kb flush_back 

al,p kscan 

al,0AAh 

kbjflush 

word ptr ds : [reset_flag],ax 

kb_flush 

ex, ex 



get 8041 status 
test output buffer bit 
jump if no character pending 
get scan code from data port 
verify keyboard present 

; keyboard present 

; loop if zero 

; delay 
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E2E0 E2 FE 



E2E2 


B8 001E R 


E2E5 


A3 001A R 


E2E8 


A3 001C R 


E2EB 


A3 0080 R 



E2EE C7 06 0082 R 003E R 



E2F4 80 26 0017 R DF 
E2F9 80 26 0018 R FE 



E2FE 


B4 05 


E300 


E8 E4B3 R 


E303 


33 C9 


E305 




E305 


E4 64 


E307 


A8 01 


E3.09 


75 05 


E30B 


E2 F8 


E30D 


EB 11 90 


E310 




E310 


E4 60 


E312 


A8 01 


E314 


74 0A 



E316 80 0E 0017 R 20 

E31B 80 OE 0018 R 01 

E320 

E320 9D 



E321 BO 14 

E323 BF 0078 R 

E326 B9 0004 

E329 F3/ AA 



C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 



loop $ 
Initialize System Variables. 



mov 
mov 



word ptr ds: [master J:bl_ptr+0000h],cs: (offset mastab) 
word ptr ds : [master tjDl ptr+0002h],cs 



Initialize Keyboard Driver Variables. 

mov ax, ds: (offset kb_buffer) 
mov word ptr ds ; [buffer_head],ax 
mov word ptr ds : [buffer_tail],ax 
mov word ptr ds : [buffer start], ax 



pointer to beginning of buffer 
keyboard output pointer offset 
keyboard input pointer offset 
keeps beginning of buffer 



mov word ptr ds: [buffer_end],ds : (offset kb_buffer)+(size kb buffer) 

; Assume first not Deluxe Keyboard 

and byte ptr ds : [kbflag] ,(not num_lock_mode) 
and byte ptr ds : [kb_flag_1],(not dlx_kb) 

; Send command to request ID code from keyboard. 



mov 
call 

xor 
kb_type_wait.- 
in 

test 
jnz 



ah,05H 
kb_cmd_send 

ex, ex 



al,kb_status 
al,1 

kb_type_read 
loop kb_type_wait 
jmp kb not dlx 

kb_type_read: 

in al,p kscan 

test al,01H 

jz kb not dlx 



Read keyboard type 
— send command. 

set up timeout count 

get port status 
data byte available? 
if so, go read it . . 
else wait awhile longer, 
timeout, default to non-dlx 



read ID byte. . 
deluxe kbd. bit set? 



; 01H bit set, so initialize to Deluxe Keyboard. 

or byte ptr dS:[kb_flag].num_lock_mode 
or byte ptr ds : [kb flag 1] , dlx kb 



kb not dlx: 
popf 



restore interrupt- 
enable state. 



Initialize Printer & Communication (RS-232) Driver Variables, 



mov 


al,14h 


; printer defau 


mov 


di,ds.- (offset printer t out) 




mov 


ex, 4 




rep 


stosb 


; es:di gets al 
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E32B BO 01 

E32D BF 007C R 

E330 B9 0004 

E333 F3/ AA 



E335 8C C8 

E337 8E D8 

E339 32 DB 

E33B BF 0008 R 

E33E BE E287 R 

E341 

E341 AD 

E342 OB CO 

E344 74 14 

E346 8B DO 

E348 BO A5 

E34A EE 

E34B 86 C4 

E34D EC 

E34E 3A C4 

E350 75 EF 

E352 8B C2 

E354 AB 

E355 80 C3 40 

E358 EB E7 

E35A 



E35A BF 0000 R 

E35D BA 03FA 

E360 EC 

E361 A8 F8 

E363 75 07 

E365 B8 03F8 

E368 AB 

E369 80 C3 02 

E36C 



mov 


al,01h 


mov 


di,ds : (offset serial t out) 


mov 


ex ,4 


rep 


stosb 



; printer default timeout = 01 



; es:di gets al 
Determine Parallel Port Configuration. 

assume csreode, dS:COde, es:data, ss : stack ram 



mov ax , cs 

mov ds,ax 

xor bl,bl 

mov di,es : (offset printer_addr) 

mov si ,ds: (offset p_tbl) 

i prt loop: 
lodsw 

or ax , ax 

jz i_prt_exit 



mov 

mov 

out 

xchg 

in 

emp 

jnz 



dx,ax 

al,0A5h 

dx,al 

al,ah 

al,dx 

al,ah 

i prt loop 



mov ax,dx 
stosw 



add 



bl,040h 



; satisfy assumptions 

; clear high byte of switch_bits 

; es:di points at printer_base 

; addresses of printer ports 



ax gets ds-.si port address. 

valid port address? 

exit if invalid port address 

transfer to data register 
load test pattern 
output test pattern, 
mov ah,al ; trash al; & delay, 
input test pattern back, 
what we read = test pattern ? 
if not, loop as port is absent 
else, printer port is present 
retrieve port address 
es:di gets ax. 

; add to high byte of switch_bits 

; will go around loop 3 times 



jmp i_prtJLoop 
i prt_exit: 

; Determine Communication (RS-232) Configuration (INS8250's). 

mov di,es: (offset rs232_addr) ; es : di points at rs232_base 



mov dx,com id a 

in al,dx 

test al , 0F8h 

jnz i_no_com_a 

mov ax , com_data_a 
stosw 



add 



i no com a: 



bl,002h 



read interrupt I.D. register 

for first 8250 port. 

bits #3-7 are always low if 

installed. 

if present, load address of 
first 8250 data port. 
es:di gets ax. 
add to high byte of switch_bits 

; es:di points next empty word 
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E36C BA 02FA 

E36F EC 

E370 A8 F8 

E372 75 07 

E374 B8 02F8 

E377 AB 

E378 80 C3 02 

E37B 

E37B BA 0201 

E37E EC 

E37F A8 OF 

E381 75 03 

E383 80 C3 10 

E386 



E386 26: 



1E 0011 R 



E38B BO FC 
E38D BA 0021 
E390 EE 



E391 BO 61 

E393 BA 0020 

E396 EE 

E397 FB 



E398 B4 01 
E39A 33 D2 
E39C CD 17 



E39E B9 0004 

E3A1 

E3A1 B8 FFE3 



C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



mov 


dx,com id b 


in 


al,dx 


test 


al,0F8h 


jnz 


i no com b 


jnz 


i no sees 


mov 


ax, com data b 


stosw 





add 



bl,002h 



i_no_sccs .- 

; Determine Game Card Configuration. 



mov 


dx,game card 


in 


al,dx 


test 


al,0Fh 


jnz 


i no game card 



bl,010h 



read interrupt I.D. register 

for second 8250 port. 

bits #3-7 are always low if 

installed. % 

if not, don't load SCC table% 

if present, load address of 
second 8250 data port. 
es:di gets ax. 
add to high byte of switch bits 

es:di points next empty word 



; get game card address. 

; bits #0-3 are low if installed 

; skip, if not present 

; add to high byte of switch bits 



add 

i_no_game card: 
; Initialize High Byte of switch bits. 

mov byte ptr es : [switch_bits+1] ,bl ; save high byte of switch bits 
; Initialize i8259A PIC with appropriate interrupt mask and enable interrupts. 



p_timer & kb & dsk at this point 
pjtimer & kb only at this point, 
now set proper interrupt mask 



; Send specific end of interrupt (SE0I) to pic 'command' port for keyboard. 



mov 


al, 10111100b 


mov 


al, 11111100b 


mov 


dx,pic 1 


out 


dx,al 



mov 


al,pic seoi 1 


mov 


dx,pic 


out 


dx,al 


sti 





Initialize Parallel Printer Interface. 



specific end of interrupt 
to pic 'command' port. 

enable interrupts 



initialize printer. 
. . .port 



; (Z8530 not used in the 6300 PLUS) 

; Initialize all 4 (2) Z8530 Serial Communication Controller. 

; NOTE: Special function code (FF) for power up ONLY initialization of 8530 

mov ex, 4 
rs_init: 

mov ax, 1111111111100011b ; initialize SCC RS-232 (FFE3h) 

; 9600 baud, none, 1 stop & 8 data 



mov 


ah,1 


xor 


dx,dx 


INT 


17h 



1-134 



ROM BIOS Listing 



ROM BIOS Listing 



E3A4 


8B D1 


E3A6 


4A 


E3A7 


CD 14 


E3A9 


E2 F6 


E3AB 




E3AB 


BO 01 


E3AD 


BA 0063 


E3B0 


EE 



E3B1 


33 CO 




E3B3 


8E D8 




E3B5 


E4 66 




E3B7 


A8 40 




E3B9 


75 4A 




E3BB 


BE DABD 


R 


E3BE 


E8 E540 


R 


E3C1 


E8 0000 


E 



E3C4 
E3C9 
E3CE 

E3D0 
E3D3 

E3D4 
E3D6 
E3D8 
E3DF 
E3E4 
E3EB 

E3F0 
E3F7 



E3FC 
E400 
E404 
E405 



2E: 8E 1E E538 R 
80 3E 0075 R 00 
75 35 

BC 0100 
FA 

33 CO 
8E CO 



26 
26 
26 
26 

26: 
26: 



C7 06 0034 R 
8C OE 0036 R 
C7 06 004C R 
8C OE 004E R 

C7 06 0064 R 
8C OE 0066 R 



26: A3 0100 
26: A3 0102 
FB 



C 
C 
C 
C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

FF23 C 
C 

EC59 C 
C 
C 

F876 C 
C 
C 
C 
C 
C 
C 
C 
C 
C 



mov 
dec 
INT 
loop 



dis dmacc: 
mov 
mov 
out 



dx,cx 
dx 
14h 
rs init 



al,1 

dx,63h 

dx,al 



; port number = loop - 1 



Call internal HDL) init code. 



assume cs:COde ? ds : absO, es : nothing, ss:Stack_ram 



xor ax, ax 

mov ds,ax 

in al,sys_conf_a 

test al,64 

jnz i hdu ok 

mov si, cs: (offset i_hdu_m) 

call DRomString 



; satisfy assumptions 



call 



bios install 



port 66h.% 

test switch bit 7%(1-8 no 0-7) 

if set, skip init 



print test message 
calls w.d. bios % 



assume cs:COde, ds:data, es : absO, ss : stack ram 



mov 
cmp 
jnz 

mov 

cli 

call 

xor 

mov 

mov 

mov 

mov 

mov 

mov 
mov 



ds,word ptr cs : [set_ds_word] 
byte ptr ds : [hf_num],0 
i_hdu_ok 

sp,100h 



i vector 

ax, ax 

es,ax 

word ptr es : [intODlocn],cs : (offset illjLnt) 

word ptr es : [intODlocn+2],cs 

word ptr es : [int13locn],cs : (offset fd_io) 

word ptr es : [int13locn+2],cs 

word ptr es : [int19locn],cs : (offset btjlnt) 
word ptr es:[int19locn+2],cs 



satisfy assumptions 

number of hard disks. 

if ok, leave everything alone. 

re-initialize stack 
disable interrupts 
re-install old vectors for 



; hard disk and 

; floppy disk and 
floppy disk and 

; int 40h 
; and the boot 
and the boot 

; interrupt 19h 



; Initialize Interrupt Vectors 20h and above to zero. 

mov word ptr es : [(4*40h)+0000h],ax ; ROM intialization messed up% 
mov word ptr es:[(4*40h)+0002h],ax ; es:di = abs0_seg : int401ocn 
sti 

i hdu ok: 
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E405 BB C800 



E408 
E408 
E40A 

E40C 
E410 

E412 
E415 

E418 
E41A 

E41D 
E420 

E422 
E425 
E427 



E429 
E42B 
E42E 

E430 
E431 
E433 
E435 
E437 



8E DB 
33 F6 

81 3C AA55 
75 43 

BE E276 R 
E8 E540 R 

33 CO 
E8 E578 R 

B8 0E20 
CD 10 

B8 0040 
8E CO 
33 F6 



33 CO 
8A 64 02 
D1 E0 

50 

B1 04 
D3 E8 
03 D8 
59 



E438 E8 E52D R 



E43B 
E43D 

E440 
E440 

E441 
E448 
E44D 



74 03 
E9 E51A R 



53 



26: C7 06 0067 R 
26: 8C 1E 0069 R 
26: FF 1E 0067 R 



C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

0003 C 

c 

c 



Test for and Initialize optional ROMs 



rom scan loop: 
mov 
xor 

cmp 
jne 

mov 



rom chksum ok: 
push 



assume cs:Code, ds : nothing, es : nothing, ss : nothing 



bx,0C800h 



ds,bx 
si, si 



load starting segment 



bx has pending segment 
offset OOOOh 



word ptr ds : [si] ,0AA55h 
rom_scan_next 

si, cs: (offset opt_R0M_m) 



call DRomString 



xor 


ax , ax 


call 


DHexLong 


mov 


ax,(0Eh*100h) 


INT 


10h 


mov 


ax, data seg 


mov 


es,ax 


xor 


si, si 



indicate ROM detected 

ds : ax points at ROM 
put out SPACE 



satisfy assumptions 
for es in rom check 
dS:Si points to ROM to check 



Now: dS:Si = pointer to ROM to be tested 

bx = ds = pending segment of ROM under test 
es: = data segment 

assume cs.-code, ds : nothing, es : data, ss: nothing 



xor 


ax, ax 


mov 


ah, byte ptr ds : [si+2] 


shl 


ax,1 


push 


ax 


mov 


cl,4 


shr 


ax,cl 


add 


bx , ax 


pop 


ex 



call rom checksum cnt 

jz rom chksum ok 
jmp rom err 



bx 



mov word ptr es : [io rom init],0003h 
mov word ptr es : [io rom seg],ds 
call dword ptr es : [io_rom init] 



clear al 

ax = (ROM length/512) * 256 
ax = (ROM length/512] * 512 
ax = ROM length in bytes 
save ROM length 

advance segment for next ROM 
by the number of paragraphs 
restore ROM length in ex 

get the checksum of the cx- 
byte ROM. 

OK if the checksum was zero 
error the checksum wasn't zero 



save the segment for next ROM 



initialize the ROM 
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E452 5B 

E453 EB 04 

E455 

E455 81 C3 0080 

E459 

E459 81 FB F600 

E45D 7C A9 



E45F 


E8 E55F R 


E462 


FA 


E463 


BA 0021 


E466 


EC 


E467 


24 FC 


E469 


EE 


E46A 


FB 



E46B 33 CO 

E46D 33 DB 

E46F 33 C9 

E471 33 D2 

E473 CD 13 



E475 BE DA96 R 

E478 E8 E540 R 

E47B BD 0003 

E47E 

E47E B8 0201 

E481 33 DB 

E483 8E DB 

E485 8E C3 

E487 BB 7C00 

E48A B9 0001 

E48D 33 D2 



E48F 55 
E490 50 



pop 
jmp 

rom scan next: 
add 

rom scan_exit: 
cmp 
jnge 



bx 



short rom scan exit 



bx,(800h/10h) 



bx,0F600h 
rom scan loop 



restore segment for next ROM 



add 2k to the pending segment 



are we done? 
if not, continue 



Clean Up after Option ROM's 



call 


DCrLf 


cli 




mov 


dx,pic 1 


in 


al,dx 


and 


al, 11111100b 


out 


dx,al 


sti 





disable interrupts 

get current interrupt mask 

p timer & kb must be on at this point. 

enable interrupts 



FDU Test 



; Initialize Floppy Disk Controller and related Driver Variables 
assume cs-.code, ds : absO; es : nothing, ss:Stack_ram 

; initialize the disk routines 



xor 


ax, ax 


xor 


bx , bx 


xor 


ex, ex 


xor 


dx,dx 


INT 


13h 



Dummy Disk Attachment Test to Spin Up Drive for INT 19h (boot-strap). 



mov si, cs: (offset i_fduA_m) 
call DRomString 



i fdu lp 



mov 


bp,3 


mov 


ax,0201h 


xor 


bx,bx 


mov 


ds,bx 


mov 


es,bx 


mov 


bx,7C00h 


mov 


cx,0001h 


xor 


dx,dx 


push 


bp 


push 


ax 



; print test message 
; loop counter 
; read one sector 



; xfer segment 

; xfer_offset 

; track 0; sector 1 

; head 0; drive 

; save retry count 

; save return registers 
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E491 06 

E492 CD 13 

E494 07 

E495 58 

E496 5D 

E497 73 08 

E499 4D 

E49A 75 E2 

E49C BE DABO R 

E49F EB 03 

E4A1 

E4A1 BE DAB4 R 

E4A4 

E4A4 E8 E540 R 

E4A7 FB 

E4A8 

E4A8 BA 0378 

E4AB BO 3F 

E4AD EE 

E4AE E8 E55F R 

E4B1 CD 19 

E4B3 



E4B3 

E4B3 

E4B3 E4 64 

E4B5 A8 02 

E4B7 75 FA 

E4B9 8A C4 
E4BB E6 60 
E4BD C3 

E4BE 

E4BE 



C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 



push 


es 


INT 


13h ; 


pop 


es ; 


pop 


ax 


pop 


bp ; 


jnc 


i fdu ok ; 


dec 


bp ; 


jnz 


i fdu lp ; 


mov 


si, cs: (offset i fdu not m) ; 


jmp 


short i fdu end 



i fdu ok: 



mov 



si,cs: (offset i fdu rdy m) 



bx, ex, dx, & ds preserved 
restore return registers 

restore retry count 

error during read? 

if so, decrement retry count 

and try again 

drive not ready message. 



drive ready message. 



i_fdu_end: 

call DRomString 



sti 
i init end: 
mov 
mov 
out 



dx ? 0378h 

al,3Fh 

dx,al 



printer port 
OK status 
tell mfg tester 



go to boot-strap routine 



call DCrLf 

INT 19h 
pcinit endp 

; Send command in AH to keyboard interface processor. AX is used, 
kb cmd send proc near 



kb cmd wlup.- 

in al,kb_status 

test al,10b 

jnz kb cmd wlup 

mov al,ah 
out p_kscan,al 
ret 

kb cmd send endp 

code ends 
include pwrup2.asm 



get 8041 port status 
ready to receive? 



ready, send command 



Filename: 



pwrup2.src 



This module includes 8259 Interrupt, Video Controller, 82087 
NPU, and 8254 & MM58274 Clock tests. 
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E4BE 



E4BE 



E4BE 


50 


E4BF 


52 


E4C0 


56 


E4C1 


8B F4 


E4C3 


36: 8E 5C 0E 


E4C7 


36: 8B 74 0C 


E4CB 


83 EE 02 


E4CE 


8A 04 


E4D0 


3C CD 


E4D2 


75 31 


E4D4 


E8 ED50 R 


E4D7 


E8 E509 R 


E4DA 


BE D999 R 


E4DD 


E8 E540 R 



code segment public 'ROM' 

assume cs:Code, ds : nothing, es : nothing, ss : nothing 



Note: We are called from ill int ONLY (see vector. src), and 
stack looks like this: 

High Address 
<— sp before ill int trap 



(10) 


return fsw flags I 


(0E) 


return cs segment I 


(OC) 


return ip offset I 


(OA) 


ax I 


(08) 


ds I 


(06) 


near call here I 


(04) 


ax I 


(02) 


dx I 


(00) 


si I 



<-- sp after ill int trap 

<— sp after illjlnt pushes 

<-- sp after ill int calls ill trap 



<-- sp after ill trap pushes 
Low Address 



assume cs:C0de, ds: nothing, es : nothing, ss : nothing 



ill trap 



proc near 



Turn off floppy disk drives. 



push 


ax 




push 


dx 




push 


si 




mov 


si,sp 




mov 


ds,word ptr ss : 


[si+OEh] 


mov 


si, word ptr ss : 


[si+OCh] 


sub 


si, 2 




mov 


al,byte ptr ds : 


[si] 


cmp 


al,0CDh 




jnz 


ill tend 





save registers 



setup for test% 

cs past si,dx,ax,ret,ds,ax,ip% 
ip past si,dx,ax,ret,ds,ax% 
point to possible INT instr% 
get illegal opcode number% 
compare to sw intr opcode% 
exit if not a sw intr% 



call stop_disk 

call illJLn 

mov si, cs: (offset illjnl) 

call DRomString 



destroys ax & dx 



part 1 of message 
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E4E0 


8B F4 


E4E2 


36: 8E 5C OE 


E4E6 


36: 8B 74 OC 


E4EA 


4E 


E4EB 


8A 04 


E4ED 


E8 E589 R 


E4F0 


4E 


E4F1 


8B C6 


E4F3 


BE D9B2 R 


E4F6 


E8 E540 R 


E4F9 


E8 E578 R 


E4FC 


BE D9B8 R 


E4FF 


E8 E540 R 


E502 


E8 E509 R 


E505 




E505 


5E 


E506 


5A 


E507 


58 


E508 


C3 


E509 


E8 E55F R 


E50C 


B2 2A 


E50E 


B8 0E2A 


E511 


CD 10 


E513 


FE CA 


E515 


75 F7 


E517 


EB 46 90 


E51A 




E51A 





E51A 



C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



mov si,sp 

mov ds,word ptr ss : [si+0Eh] 

mov si, word ptr ss : [si+0Ch] 

dec si 

mov al,byte ptr ds : [si] 

call DHexByte 

dec si 

mov ax, si 

mov si, cs: (offset ill m2) 

call DRomString 

call DHexLong 

mov si, cs: (offset ill m3) 

call DRomString 

call ill In 



ill tend: 



ill lp : mov 
INT 
dec 
jnz 
jmp 

ill trap 



cs past si,dx,ax,ret,ds ? ax,ip 
ip past si,dx,ax,ret,ds,ax 

si points to interrupt number 
print illegal interrupt number 

si points to interrupt instr. 
save pointer 

part 2 of message 

print illegal cs : ip = ds : ax 
part 3 of message 



pop 


si 


pop 


dx 


pop 


ax 


ret 





restore registers 



illJLn: call DCTLf 
mov dl,42 



; prints a line of '*'s 



ax,(0Eh*100h)+('*') 

10h 

dl 

ill_lp 

DCrLf 

endp 



code ends 
include pwrup3.asm 



Filename: 



pwrup3.src 



This module includes 8041 keyboard, communication LSI, RAM, and 
optional ROM tests. 

This module also includes disk drive tests, system initialization, 
keyboard boot-strap options, and message routines. 



code segment public 'ROM' 

assume cs:Code, ds : nothing, es:data, ss : nothing 
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E51A 



E51A 8C D8 

E51C 26: 88 26 0015 R 

E521 BE D9CC R 

E524 E8 E540 R 

E527 EB 36 90 

E52A 



E52A 



E52A 


B9 2000 


E52D 




E52D 


33 CO 


E52F 




E52F 


AC 


E530 


02 E0 


E532 


E2 FB 


E534 


OA E4 


E536 


C3 



E537 



C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



Input: ds = segment of ROM under test 
es = firmware data segment 

Trash: All other registers except bx destroyed (in general). 



rom err proc near 

assume cs:COde, ds : nothing, es : data, ss : nothing 

mov ax,ds 

mov byte ptr es : [mfg err flag], ah ; high byte of ROM address 



; indicate ROM failed 



mov si, cs: (offset fail m) 

call DRomString 

jmp DCrLf 

rom err endp 



assume cs : code, ds : nothing, es : nothing, ss : nothing 



; Input: 


dS:Si 


= pointer to ROM to be tested 


; Output: 


ah 


= checksum for the ROM 




ex 


= 




si 


= pointer to byte past ROM 




zf 


= state of checksum for the ROM 


Trash: 


al destroyed. 



rom checksum proc near 

assume cs : code, ds : nothing, es : nothing, ss : nothing 

mov cx,2000h 



rom checksum cnt: 

xor ax, ax 

rom_checksum loop: 
lodsb 

add ah,al 
loop rom_checksum_loop 

or ah, ah 
ret 

rom checksum endp 



clear ah 



12 al gets dS:Si 
3 
17 



Utility Routines: 
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E537 

E537 90 
E538 0040 
E53A 

E53A 



E53A 2E: 8E 1E E538 R 
E53F C3 

E540 



E540 



E540 1E 

E541 0E 

E542 1F 

E543 E8 E548 R 

E546 1F 

E547 C3 
E548 

E548 



E548 


50 


E549 


53 


E54A 


56 


E54B 


9C 


E54C 


FC 


E54D 


B3 01 


E54F 


AC 


E550 


0A CO 


E552 


74 06 


E554 


B4 0E 


E556 


CD 10 


E558 


EB F5 


E55A 




E55A 


9D 


E55B 


5E 


E55C 


5B 



DRomString 

DHexLong 

DNum 



DString 

DHexWord 

DNumW 



DCrLf 
DHexByte 



DColon 
DHexNib 



p4 datal proc near 

even 

set ds word dw data seg 

p4 datal endp 



2 bytes = clocks 



set ds 



proc near ; set ds to firmware data segment 
assume csrcode, ds: nothing, es : nothing, ss : nothing 



mov 
ret 



set ds 



ds,word ptr cs : [set ds word] 



endp 



5 bytes 2+9+6 = 17 clocks 
1 byte = 8 clocks 



Display ASCII String Utilities 



DRomString 



push 
push 
pop 
call 
pop 
ret 
DRomString 

DString 



push 

push 

push 

pushf 

eld 

mov 

lodsb 

or 

je 

mov 

INT 

jmp 



proc near ; Displays NUL terminated string at cs : si 
assume cs:COde, ds : nothing, es : nothing, ss : nothing 



all registers saved 
ds gets cs 



restore ds 



ds 

cs 

ds 

DString 

ds 

endp 



proc near ; Displays NUL terminated string at dS:Si 
assume cs:COde, ds: nothing, es : nothing, ss : nothing 



ax 
bx 
si 



bl,1 



DS lp : 



DS ret: 



popf 

pop 

pop 



al.al 

DS_ret 

ah,0Eh 

10h 

short DS lp 



si 
bx 



all registers & flags saved 



auto increment 

select foreground color for grafix modes 

al gets ds:si and si++ 

NUL ? 



tty emulator 



restore registers & flags 
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E55D 


58 




C 




pop 


ax 




E55E 


C3 




C 




ret 






E55F 






C 
C 
C 


DStrinc 




endp 




E55F 






DCrLf 




proc near 


; Displays a CR & LF. 








C 






assume csrcode, 


ds: nothing, es : nothing, ss : nothing 


E55F 


50 




C 




push 


ax 


; all registers preserved 


E560 


B8 


0E0D 


C 




mov 


ax,(0Eh*100h)+CR 




E563 


CD 


10 


C 




INT 


10h 


; tty emulator 


E565 


B8 


0E0A 


C 




mov 


ax,(0Eh*100h)+LF 




E568 


CD 


10 


C 




INT 


10h 


; tty emulator 


E56A 


58 




C 




pop 


ax 


; restore ax 


E56B 


C3 




C 




ret 






E56C 






C 
C 
C 


DCrLf 




endp 




E56C 






DColon 




proc near 


; Displays a ' : ' . 








C 






assume csrcode, 


ds: nothing, es : nothing, ss : nothing 


E56C 


50 




C 




push 


ax 


; all registers preserved 


E56D 


53 




c 




push 


bx 




E56E 


B3 


01 


c 




mov 


bl,1 


; select foreground color for grafix modes 


E570 


B8 


0E3A 


c 




mov 


ax,(0Eh*100h)+' : 




E573 


CD 


10 


c 




INT 


10h 


; tty emulator 


E575 


5B 




c 




pop 


bx 


; restore registers 


E576 


58 




c 




pop 


ax 




E577 


C3 




c 




ret 






E578 






c 
c 
c 
c 
c 
c 
c 


DColon 




endp 












Display 


Hexadecimal Number in ASCII Utilities 


E578 






DHexLong 


proc near 


Displays ds : ax in ASCII 








c 






assume csrcode, 


ds: nothing, es : nothing, ss : nothing 


E578 


50 




c 




push 


ax 


all registers preserved 


E579 


8C 


D8 


c 




mov 


ax,ds 


display segment first 


E57B 


E8 


E582 R 


c 
c 
c 
c 
c 




call 


DHexWord 




E57E 


E8 


E56C R 




call 


DColon 


display a colon 


E581 


58 






pop 


ax 


restore ax 








c 
c 
c 
c 
c 


•■ 


jmp 


short DHexWord 


fall through: display offset second 


E582 






DHexLong 


endp 




E582 






DHexWord 


proc near 


Displays ax in ASCII 








c 






assume cs : code, 


ds: nothing, es : nothing, ss : nothing 


E582 


50 




c 




push 


ax 


all registers preserved 


E583 


8A 


C4 


c 




mov 


al,ah 




E585 


E8 


E589 R 


c 




call 


DHexByte 


display high byte first 


E588 


58 




c 




pop 


ax 


restore ax 








c 
c 
c 
c 
c 


; 


jmp 


short DHexByte 


fall through: display low byte second 


E589 






DHexWord 


endp 




E589 






DHexByt 


e 


proc near 


Displays al in ASCII 
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E589 


50 


E58A 


DO C8 


E58C 


DO C8 


E58E 


DO C8 


E590 


DO C8 


E592 


E8 E596 R 


E595 


58 



E596 



E596 



E596 


50 


E597 


53 


E598 


B3 01 


E59A 


24 OF 


E59C 


04 30 


E59E 


3C 39 


E5A0 


76 02 


E5A2 


04 07 


E5A4 


B4 0E 


E5A6 


CD 10 


E5A8 


5B 


E5A9 


58 


E5AA 


C3 


E5AB 





push 


ax 


ror 


al,1 


ror 


al,1 


ror 


al,1 


ror 


al,1 


call 


DHexNib 


pop 


ax 


jmp 


short DHexNib 



DHexByte 



DHexNib 



assume cs:Code, ds: nothing, es : nothing, ss : nothing 
all registers preserved 



move high nibble to low nibble 

display high nibble in ASCII 

restore ax 

fall through: display low nibble in ASCII 



near ; Displays low nibble of al in ASCII 
csicode, ds: nothing, es: nothing, ss : nothing 
; all registers preserved 

; select foreground color for grafix modes 
; clear high nibble 



endp 



NibOk: 





proc 




assume 


push 


ax 


push 


bx 


mov 


bl,1 


and 


al,0fh 


add 


al, '0' 


cmp 


al,'9' 


jbe 


NibOk 


add 


al.'A'- 


mov 


ah,0Eh 


INT 


10h 


pop 


bx 


pop 


ax 


ret 





0'-10 



; '0' <= al <= '9' ? 

; tty emulator 

; restore registers 



DHexNib 



endp 









L 
C 

C 

c 
c 




Display 


Decimal 


Number in ASCII Utilities 


E5AB 






DNum 




proc 


near 


Displays decimal of ax in ASCII in min width 








c 






assume 


cs:Code, 


ds: nothing, es: nothing, ss : nothing 


E5AB 


53 




c 




push 


bx 




all registers preserved 


E5AC 


33 


DB 


c 




xor 


bx,bx 




minimum width 


E5AE 


E8 E5B3 R 


c 




call 


DNumW 




display ax 


E5B1 


5B 




c 




pop 


bx 




restore bx 


E5B2 


C3 




c 




ret 








E5B3 






c 
c 
c 


DNum 




endp 






E5B3 






DNumW 




proc 


near 


Displays decimal of ax in ASCII of width bx 








c 
c 
c 






assume 


cs:Code, 


ds: nothing, es: nothing, ss; nothing 


E5B3 


50 






push 


ax 




; all registers preserved 


E5B4 


53 




c 




push 


bx 






E5B5 


51 




c 




push 


ex 






E5B6 


52 




c 




push 


dx 






E5B7 


56 




c 
c 

c 




push 


si 






E5B8 


BE 


000A 




mov 


si, 10 




; decimal modulus 


E5BB 


33 


C9 


c 




xor 


ex, ex 




; clear digit counter 


E5BD 






c 


DNumW 


loop: 








E5BD 


33 


D2 


c 




xor 


dx,dx 




; dx:ax = decimal number 
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E5BF 


F7 F6 


E5C1 


52 


E5C2 


41 


E5C3 


OB CO 


E5C5 


75 F6 


E5C7 


2B D9 


E5C9 


76 08 


E5CB 




E5CB 


B8 0E20 


E5CE 


CD 10 


E5D0 


4B 


E5D1 


75 F8 


E5D3 




E5D3 


B3 01 


E5D5 


58 


E5D6 


04 30 


E5D8 


B4 0E 


E5DA 


CD 10 


E5DC 


E2 F5 


E5DE 


5E 


E5DF 


5A 


E5E0 


59 


E5E1 


5B 


E5E2 


58 


E5E3 


C3 


E5E4 





E5E4 



E5E4 


50 


E5E5 


52 


E5E6 


BA 3F60 


E5E9 


EE 


E5EA 


E4 61 


E5EC 


OC 30 


E5EE 


E6 61 


E5F0 


24 CF 


E5F2 


E6 61 


E5F4 


BO 80 


E5F6 


E6 AO 


E5F8 


5A 


E5F9 


58 


E5FA 


C3 



E5FB 50 61 72 69 74 79 
20 65 72 72 6F 72 
20 6F 6E 20 73 79 



c 


div 


si 


c 






c 






c 


push 


dx 


c 


inc 


ex 


c 


or 


ax, ax 


c 


jnz 


DNumW loop 


c 






c 


sub 


bx,cx 


c 


jbe 


DNumW skip 


c 






c 


DNumW spaces: 




c 


mov 


ax,(0Eh*100h)+' ' 


c 


INT 


10h 


c 


dec 


bx 


c 


jnz 


DNumW spaces 


c 






c 


DNumW skip: 




c 


mov 


bl,1 


c 


pop 


ax 


c 


add 


al,'0' 


c 


mov 


ah,0Eh 


c 


INT 


10h 


c 


loop 


DNumW skip 


c 






c 


pop 


si 


c 


pop 


dx 


c 


pop 


ex 


c 


pop 


bx 


c 


pop 


ax 


c 


ret 




c 


DNumW endp 




c 






c 


enable parity 


proc 


c 






c 


push 


ax 


c 


push 


dx 


c 


mov 


dx,p trapce 


c 


out 


dx,al 


c 






c 






c 


in 


al,p kctrl 


c 


or 


al,30h 


c 


out 


p kctrl, al 


c 


and 


al.OCFh 


c 


out 


p kctrl, al 


c 


mov 


al,nmi enable 


c 


out 


nmi enable port,al 


c 


pop 


dx ~ 


c 


pop 


ax 


c 


ret 




c 






c 


parityl m 


db 'Parity er 


c 






c 







dh = 

dl = remainder = (0-9) 

ax = quotient = higher order digits 

save the digit on stack 

increment count of what's on stack 

are we done? 



subtract digit count from width 
skip spaces if bx is not > ex 



display a space 

decrement count of spaces 
keep going 



foreground color for grafix modes 
remove digit from stack 
convert to ASCII 
display the digit 



restore registers 



reset trapce upon powerup %% 
this also needed as part%% 
of the Above Board flx°/o% 

read B port. (61h) 

enable bits 4 & 5. 



80h. 

defined in sysdata.src (AOh) 
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E618 



73 74 65 6D 20 62 
6F 61 72 64 00 
50 61 72 69 74 79 
20 65 72 72 6F 72 
20 6F 6E 20 65 78 
70 61 6E 73 69 6F 
6E 20 62 6F 61 72 
64 00 



E638 



E638 

E638 FA 

E639 50 

E63A 56 

E63B 06 

E63C 83 C4 06 

E63F 5E 

E640 07 

E641 26: 8B 04 

E644 83 EC 0A 

E647 07 

E648 5E 



E649 2D C88E 

E64C 58 

E64D 74 01 

E64F CF 



E650 

E650 83 C4 04 

E653 50 

E654 83 EC 02 

E657 50 



E658 83 C4 02 
E65B 58 



C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



parity2 m 



db 



'Parity error on expansion board \NUL 



enable parity endp 



; INT 06H - 


- Illegal Opcode Interrupt Routine% 


; Purpose: 


To intercept certain (well-used) illegar/o 




opcodes. Note that this vector is installed% 




i vector. % 



OP INT PROC 



iret 



movaxcs : 



NEAR 



cli 






; stop intrs% 

; This routine checks for MOV CS<-AX and emulates it.% 


push 


ax 






;% 


push 


si 






% 


push 


es 






% 


add 


sp, 


6 




% 


pop 


si 






% 


pop 


es 






°/o 


mov 


ax, 


es: | 


si] 


% 


sub 


sp, 


Oah 




% 


pop 


es 






% 


pop 


si 






% 








; Compare offending instruction with known opcode% 


sub 


ax, 


0c88eH 


°/o 


pop 


ax 






% 


jz 


movaxcs 




% 



; replace cs on stack with ax% 
;% 
;% 
;% 



ADD SP, 4 

PUSH AX 

SUB SP, 2 

PUSH AX 



; increment return address by two % 
ADD SP,2 ;% 
POP AX ;% 
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E65C 


05 


0002 


C 


ADD 


AX, 2 ;% 


E65F 


50 






C 


PUSH 


AX ;% 


E660 


83 


EC 


02 


C 
C 
C 


SUB 


SP,2 ;% 












; retore AX register% 


E663 


58 






C 
C 
C 


POP 


AX ;% 


E664 


CF 






IRET 


;% 


E665 








C 
C 
C 


OP INT ENDP 




E665 








code ends 












C 

c 
c 


include fdu6. 


asm 


E665 








code segment public 'ROM' 










c 
c 
c 
c 
c 
c 
c 


assume cs:COde, ds:data, es : nothing, ss : nothing 










; file 


fdu6.asm 










c 
c 
c 
c 
c 
c 


; Test 


for Retry 










; Routine checks for certain commands and error conditions 










c 


; If no 


retry is needed, the disk-state is made 'established' 










c 


; When 


a retry is needed, disk-state and f head are changed. 










c 
c 
c 
c 
c 
c 
c 


; CY is 


set/cleared as appropriate 










; note: 


state transitions are odd. 


E665 








f tstretry 


proc near 


E665 


50 






c 


push 


ax 


savefunction info% 


E666 


E8 


F603 R 


c 


call 


f getdrv 


get drive number in bl% 


E669 


8A 


46 


03 


c 


mov 


al,f command 


get original cmd% 


E66C 


3C 


01 




c 


cmp 


al,1 


reset/status cmd?% 


E66E 


76 


1F 




c 


jbe 


f jmpnr 


yes, exit% 


E670 


3C 


06 




c 


cmp 


al,6 


special cmds?% 


E672 


73 


1B 




c 


jae 


f jmpnr 


yes, no special handling here% 


E674 


A0 


0041 R 


c 


mov 


al, diskette status 


hold status info% 


E677 


0A 


CO 




c 


or 


al.al 


test error msg% 


E679 


75 


17 




c 


jnz 


f dskerr 


jmp if error% 


E67B 


8A 


87 


0090 R 


c 


mov 


al,diskstate[bx] 


no errors, massage state% 


E67F 


A8 


10 


90 90 


c 


test 


al.ESTAB 


is it established??% 


E683 


75 


5C 




c 


jnz 


f noretry 


yes it is, jump out% 


E685 


OC 


10 


90 90 


c 


or 


al,ESTAB 


no, state is now confirmed% 


E689 


04 


03 




c 


add 


al,3 


state part was unestab, add w/o fear% 


E68B 


88 


87 


0090 R 


c 


mov 


diskstate[bx],al 


record new state% 


E68F 








c 


f jmpnr: 




added for 127-byte jump to f noretry % 


E68F 


EB 


50 


90 


c 


jmp 


f noretry 


done 


E692 








c 


f dskerr: 
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C 


; work with error code here 








C 


try using 


ESTABs states only (don't make an unESTAB state upon error%% 






C 


mov 


al,diskstate[bx] 


; hold lastrate info% 






C 


test 


al.ESTAB 


; was state established?% 






C 


jz 


f nopass 


; no, don't try again% 






C 


sub 


al,3 


; make it un-established% 






C 


and 


al.NOT(ESTAB) 


; clr estab bit% 






C 


mov 


diskstate[bx],al 


; store 'new' state% 






C 


jmp 


f pass2 


; run 2nd try at same rate% 


E692 




C 1 


nopass: 






E692 


E8 F5F6 R 


C 


call 


f drvswitch 


; disk error, nonspecial cmd,nonestab% 


E695 


OA CO 


C 


or 


al,al 


check for low density drive% 


E697 


74 48 


C 


jz 


f noretry 


finished if 48tpi% 


E699 


E8 F672 R 


C 


call 


chkspeed 


chk speed of multi-speed drive% 


E69C 


73 43 


C 


jnc 


f noretry 


exit if non-speed related error% 


E69E 


8A 87 0090 R 


C 


mov 


al,diskstate[bx] 


prepare to change state/speed% 


E6A2 


3C 74 90 90 


C 


cmp 


al,E48M12D 


test state%% 


E6A6 


74 06 


C 


jz 


f mk1212 


next state% 


E6A8 


BO 74 90 


C 


mov 


al,E48M12D 


next state% 


E6AB 


EB 04 90 


C 


jmp 


f trcont 


massage new state% 


E6AE 




C f 


mk1212: 






E6AE 


B0 15 90 


C 


mov 


al,E12M12D 


next state% 


E6B1 




C f 


trcont: 






E6B1 


A8 20 90 90 


C 


test 


al, DOUBLE 


chk for double step state% 


E6B5 


74 07 


C 


jz 


f clrhead 


jmp for 1-step% 


E6B7 


80 4E 01 80 


c 


or 


byte ptr f head,80h 


internal parm for double step% 


E6BB 


EB 05 90 


c 


jmp 


f trcontO ; 


cont% 


E6BE 




C f 


clrhead: 






E6BE 


80 66 01 7F 


c 


and 


byte ptr f head,07fh ; 


clr MSB for single stepping% 


E6C2 




C f 


trcontO: 






E6C2 


88 87 0090 R 


c 


mov 


diskstate[bx],al ; 


hold next state before cont% 


E6C6 


8A 87 0092 R 


c 


mov 


al,diskstate[bx+2] ; 


hold orig state% 


E6CA 


3A 87 0090 R 


c 


cmp 


al,diskstate[bx] ; 


test for last attempt% 


E6CE 


74 11 


c 


jz 


f noretry ; 


if equal, opertion dead, try no more% 


E6D0 


2A 87 0090 R 


c 


sub 


al T diskstate[bx] ; 


check for estab/unestab cmp% 


E6D4 


3C 13 


c 


cmp 


al,(ESTAB OR 03h) ; 


sub result for failure% 


E6D6 


74 09 


c 


jz 


f noretry ; 


zero -> failure% 


E6D8 


80 26 003E R 80 


c 
c 

C f 


and 


seek status, 80h ; 


clear drive bits to force seek% 


E6DD 




pass2: 






E6DD 


F9 


c 


stc 


; 


try again, flag failure% 


E6DE 


EB 02 90 


c 


jmp 


f trdone ; 


exit% 


E6E1 




C f 


noretry: 










c 


; work 


with error code here 




E6E1 


F8 


c 


clc 


; 


flag success % 


E6E2 




C f 


trdone: 






E6E2 


58 


c 


pop 


ax ; 


restore% 


E6E3 


C3 


c 


ret 






E6E4 




C f 

c 

C c 


tstretry 


endp 




E6E4 




Dde ends 










.1 


_IST 




; number 3 start 






C ir 
C ; = 


iclude bootl. 


asm 
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C 

C 

C 

C 

C 

C 

C ( 

C 

C 

C 

C 

C t 

C 

C 

C 

C t 

C 

C ( 

C ] 

C ( 

C 

C 

C c 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

C c 

c 
c 
c 
c 

C c 

c 
c 




Filename: bootl.src 












This module includes the ORC 


'd jump to INT 19h (boot2.src) 


E6E4 






:ode 


segment public 'ROM' 
assume cs:Code, ds : nothing, 


es: nothing, ss : nothing 


E6F2 








ORG 


0E6F2h 




E6F2 






Dtjmp 


proc 


near 




E6F2 


E9 F876 R 




jmp 


bt int 


; necessary jump for ORG 


E6F5 






Dtjmp 


endp 






E6F5 
E6F5 






:ode ends 

mclude memx.asm 

:ode segment public 'ROM' 

assume cs:Code, ds : nothing, 


es: nothing, ss : nothing 


E6F5 






3dd mem 


code 
assume 


proc far 
cs:COde, ds: nothing, 


es: nothing, ss : nothing 


E6F5 
E6F8 

E6FA 
E6FB 
E700 
E703 
E704 


80 FC 88 
75 OB 

1E 

2E: 8E 1E E538 R 

A1 OOCA R 

1F 

CF 




cmp 
jne 

push 

mov 

mov 

pop 

iret 


ah,88h 

cass 

assume ds:data 

ds 

ds,word ptr cs: [set 

ax,ds:[seg fail] 

ds 


; see if request for mem above 1 Mb 
ds word] ; satisfy assumptions 


E705 
E705 
E706 
E708 


F9 
B4 
CA 


86 
0002 


:ass: 


stc 
mov 
ret 


ah,86h 
2 


; error 


E70B 






3dd mem 


code 


endp 




E70B 






c 
c 

C code 

C include 

p 


ends 
comml . asm 










L 

c 
c 
c 
c 
c 
c 

C c 

c 




Filename: coml.src 












This module, com2, and com3 


supply INT 14h. 


E70B 






:ode 


segment public 'ROM' 
assume cs:COde, ds : nothing, 


es: nothing, ss : nothing 
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0080 
0020 
0008 
0004 
0002 
0001 



0020 
0010 



0002 
0001 



0004 
0001 



0040 
0020 
0010 



C 
C 
C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



INS8250 Compatible Line Status Bits (ah) for Z8530 SCC Re-Mapping 
(8530 not used on the 6300 PLUS) 



com te 
com txd 
com fe 
com pe 
com oe 
com rxd 



equ 


80h 


time out 


error (bit #7) 


equ 


20h 


transmit 


ready (bit #5) 


equ 


08h 


framing 


error (bit #3) 


equ 


04h 


parity 


error (bit #2) 


equ 


02h 


overrun 


error (bit #1) 


equ 


01h 


receive 


ready (bit #0) 



INS8250 Compatible Modem Status Bits (al) for Z8530 SCC Re-Mapping 
(8530 not used on the 6300 PLUS) 



com dsr 
com cts 



equ 
equ 



20h 
10h 



; data set ready (bit #5) 
; clear to send (bit #4) 



INS8250 Compatible Modem Control Bits. 



com rts 
com dtr 



equ 
equ 



02h 
01h 



request to send (bit #1) 
data terminal ready (bit #0) 



Z8530 SCC Status Register (Read Register #0) 
(8530 not used on the 6300 PLUS) 



sec txd 
sec rxd 



equ 


04h 


; transmit ready (bit #2) 


equ 


01h 


; receive ready (bit #0) 



Z8530 SCC Error Register (Read Register #1) 
(8530 not used on the 6300 PLUS) 



sec fe 
sec oe 
sec pe 



equ 


40h 


; framing error (bit #6) 


equ 


20h 


; overrun error (bit #5) 


equ 


10h 


; parity error (bit #4) 



; INS8250 Asynchronous 


Communication 


Chip Baud Rate 


Time 


Constants 


; (baud rate generator signal is 3.6864 MHz put through < 


3 


; divide-by-2 circuit. 










((3, 


686,400 Hz)/2) 


= Input Freq. 
















I line constant 










(16)*(baud 


rate) 
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E729 




E729 




E729 


0417 


E72B 


0300 


E72D 


0180 


E72F 


OOCO 


E731 


0060 


E733 


0030 


E735 


0018 


E737 


oooc 



E739 



C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



com datal 
com baud 



com datal 



ORG 

proc 

dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 

endp 



0E729h 



1047 

768 

384 

192 

96 

48 

24 

12 



110 baud 

150 baud 

300 baud 

600 baud 

1200 baud 

2400 baud 

4800 baud 

9600 baud 



(0) 
(1) 
(2) 
(3) 
(4) 
(5) 
(6) 
(7) 



; Z8530 Serial ( 


:ommunication Controller 


Baud Rate Time Constants 


; (baud 


rate generator signal is 


3.6864 MHz) 


; (NO divide-by-2 circuit! ! ! ! ) 




; (8530 


not used on the 6300 PLUS) 




(3,686,400 Hz) = Input Freq. 


; Time Constant 




p 




c 




(16)*(2)*(baud rate) 


; NOTE: These values are the SAME as the 


above EXCEPT for the - 2 


; scc baud dw 


1045 ; 110 baud 


(0) 


; dw 


766 


150 baud 


(1) 


; dW 


382 


300 baud 


(2) 


; dW 


190 


600 baud 


(3) 


; dW 


94 


1200 baud 


(4) 


; dW 


46 


2400 baud 


(5) 


dw 


22 


4800 baud 


(6) 


dw 


10 


9600 baud 


(7) 



INT 14h — RS-232 Software Interrupt Request Routine 

Assumes: INS8250 port addresses are > 256. That is, the 
high byte of the port address is nonzero, if and 
only if, the port is a INS8250. (e.g. com a ports 
are 03F8h - 03FFh & com_b ports are 02F8h - 02FFh.) 

Similarly: Z8530 port addresses are < 256. That is, the 
high byte of the port address is zero, if and 
only if, the port is a Z8530. (e.g. sec a ports 
are 0050h - 0051h & scc_b ports are 0052h - 0053h.) 

Z8530 Note: For the reset during power-up, DTR and RTS must be 
set low which is the only difference from a normal 
reset (AH=0). This is accomplished by a special 
function code (AH=0FFh). (8530 not used on 
the 6300 PLUS). 
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C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


;- 








E739 




ORG 


0E739h 


E739 






serial 


io 
assume 


proc near 

cs:Code, ds: nothing, es : nothing, ss: nothing 


E739 


FB 








sti 


; enable interrupts 


E73A 


55 








push 


bp ; save register 


E73B 
E73E 


83 FA 04 
73 3D 








cmp 
jae 


dx,4 ; 4 RS-232 channels allowed max 
rs nop 


E740 
E742 
E745 
E747 


8B E8 
80 FC FF 
75 02 
32 E4 








mov 
cmp 
jne 
xor 


bp,ax ; save original function code 

ah,0FFh ; power-up reset? 

rs norm ; jump if no 

ah, ah ; same as reset, BP remembers FF 


E749 
E749 
E74C 


80 FC 03 
77 2F 




rs 


norm: 
cmp 


ah,03h ; input out of range? 
rs nop 














assume cs : code, ds:data, es : nothing, ss : nothing 


E74E 
E74F 
E750 
E751 
E752 


52 
51 
53 
1E 
2E: 8E 1E 


E538 R 






push 
push 
push 
push 
mov 


dx ; save registers 

ex 

bx 

ds ; save ds 

ds,word ptr cs : [set ds word] ; satisfy assumptions 


E757 
E759 
E75B 
E75F 
E761 

E765 


8B DA 

33 C9 

8A 8F 007C 

D1 E3 

8B 97 0000 

1F 


R 
R 






mov 
xor 
mov 
shl 
mov 

pop 


bx,dx 

ex, ex 

cl,byte ptr ds : [bx+serial t out] 

bx,1 

dx,word ptr ds : [bx+rs232 addr] 

ds 


get port number (0-3) 

clear ch 

get RS-232 time-out 

make word index 

get address of RS-232 

data port 

restore ds 














assume cs : code, ds : nothing, es : nothing, ss: nothing 


E766 
E768 


OB D2 
74 10 








or 


dx,dx ; RS-232 port present? 
rs ret ; if not, leave 


E76A 
E76C 


OA F6 
75 03 








or 
jnz 


dh,dh ; are we a INS8250 chip? 
rs ok ; if so, take jump 


E76E 


80 C4 04 








add 


ah, 4 ; if SCC Z8530 and 4 to function 


E771 
E771 
E773 
E775 


8A DC 
D1 E3 
2E: FF 97 


E77F R 


rs 


Ok: 


mov 
shl 
call 


bl,ah ; bx = function number 
bx, 1 ; bx = 2*(f unction number) 
cs:[bx+(offset rs tbl)] ; perform rs232 function 


E77A 






rs 


ret: 
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E77A 


5B 


C 






pop 


bx ; restore registers 


E77B 


59 


C 






pop 


ex 


E77C 


5A 


C 






pop 


dx 


E77D 




C r 


^s 


nop 






E77D 


5D 


C 






pop 


bp 


E77E 


CF 


C 
C 
C 
C 
C 
C 
C r 






iret 












INT 14h 


Jump Table 


E77F 


E787 R 


^s 


tbl 


dw 


com init ; ah = OOh for INS8250 


E781 


E8B6 R 


C 






dw 


com pb 


ah = 01h for INS8250 


E783 


E8E2 R 


C 






dw 


com gb 


ah = 02h for INS8250 


E785 


E87D R 


C 






dw 


com stat 


ah = 03h for INS8250 






C 






dw 


sec init 


ah = OOh for SCC Z8530% 






C 






dw 


sec pb 


ah = 01h for SCC Z8530% 






C 






dw 


sec gb 


ah = 02h for SCC Z8530% 






C 

C 

C < 

C 

C 

C 

C 

C 

C 






dw 


sec stat 


ah = 03h for SCC Z8530% 


E787 




serial 


io 


endp 










Initialize RS-232 Interface. 










Input: 


al = input parameters 






C 








dx = address of RS-232 channel 






C 
C 
C 






Output: 


ax = RS-232 channel status 












al initializes port with: bit #76543210 






c 








+-+-+-+-+-+-+-+-+ 






c 








IBIBIBIPIPISIDIDI 






c 








+-+-+-+-+-+-+-+-+ 






c 






Baud (BBB): Parity (PP): Stop Bits (S): Data Bits (DD): 






c 






= 110 


4 = 1200 xO = None 0=1 10 = 7 






c 






1 = 150 


5 = 2400 01 = Odd 1=2 11 = 8 






c 






2 = 300 


6 = 4800 11 = Even (00 = 5?) 






c 
c 
c 






3 = 600 7 = 9600 (01 = 6?) 










Assumes 


: com int x = com data x + 1 = dx + 1 






c 
c 
c 

C ( 








com lctl x = com data x + 3 = dx + 3 


E787 




:om init 


proc near ; ah = OOh 






c 
c 
c 
c 
c 
c 
c 








assume cs:COde, ds: nothing, es : nothing, ss: nothing 


E787 


52 






push 


dx ; save dx = com data x 


E788 


8A E8 






mov 


ch,al ; save input parameters. 


E78A 


BO 80 






mov 


al,080h ; access divisor latch of 






c 








; baud count register. 


E78C 


83 C2 03 


c 






add 


dx,3 ; dx = com lctl x 


E78F 


EE 


c 






out 


dx,al ; write to line control register 
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E790 E8 E8AC R 



E793 
E795 
E799 
E79B 



E7AE 
E7B0 
E7B2 
E7B3 
E7B4 
E7B5 



E7C1 



8A DD 

81 E3 00E0 
B1 04 
D2 EB 



E79D 2E: 



87 E729 R 



E7A2 5A 

E7A3 EE 

E7A4 E8 E8AC R 

E7A7 8A C4 

E7A9 42 

E7AA EE 

E7AB E8 E8AC R 



8A C5 

24 1F 

42 

42 

EE 

E8 E8AC R 



E7B8 32 CO 

E7BA 4A 

E7BB 4A 

E7BC EE 

E7BD 4A 

E7BE E9 E87D R 

E7C1 

E7C1 



C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



call rs dly 



mov 


bl,ch 


and 


bx, 11100000b 


mov 


cl,4 


shr 


bl.cl 



mov ax, word ptr cs : [bx+com baud] 

pop dx 

out dx,al 

call rs dly 

mov al,ah 

inc dx 

out dx,al 

call rs dly 



mov 
and 
inc 
inc 
out 
call 



xor 
dec 
dec 
out 



com init 



al,ch 

al, 00011111b 

dx 

dx 

dx,al 

rs dly 



al.al 
dx 
dx 
dx,al 



dec dx 

jmp com stat 

endp 



code ends 
include kbl.asm 



Filename: kbl.src 

This module includes INT 09h & 16h. 



get input parameters. 

get bits #5, 6, & 7 (clear bh) 

move to bits #1,2,& 3 
bx is word index 
get 8250 baud count 

restore dx = com data x 
output low byte of baud rate 



transfer high byte to low byte 

dx = com int x 

output high byte of baud rate 



get input parameters, 
get bits #0 thru #4 

dx = com lctl x 

write to line control register 
disable access divisor latch, 
set data & stop bits, & parity 

disable all interrupts!! 

dx = com int x 

write to interrupt ID register 

dx = com data x 
return status 



code segment public 'ROM' 

assume cs : code, ds : nothing, es : nothing, ss : nothing 



INT 16h — i8041A Keyboard Software Interrupt Request Routine 



Input: ah = function number (OOh <= ah <= 03h) 
Output: ah = (ah - 2) if ah >= 2 
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E82E 
E82E 



E82E FB 

E82F 1E 

E830 2E: 8E 1E E538 R 

E835 53 



E836 80 FC 01 

E839 72 0A 

E83B 74 23 

E83D 80 FC 02 

E840 74 27 

E842 5B 

E843 1F 

E844 CF 

E845 



C 
C 
C 
C 
C 
C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



k io 



Trash: None, (bx & ds if ROM stack) 

Note: The stack never gets deeper than 6 words!!! 



High Address 
-I <— sp (at entry & exit) 



return fsw flags I 
1 



return cs segment I 
1 



return ip offset I 



ds 
bx 



-I <-- sp after kb trap 
I 



1 

1 near call I 



-I <— sp (at its deepest! !] 
Low Address 



ORG 



0E82Eh 



proc near 

assume cs:Code ? ds : nothing, es : nothing, ss : nothing 



sti 

push ds 

mov ds,word ptr cs:[set ds word] 

push bx 



enable interrupts! ! 

save ds 

avoid potential stack problems 

save bx 



assume cs : code, ds:data, es : nothing, ss : nothing 



k ret: 



k io 



cmp 


ah,1 


jb 


k read 


je 


k look 


cmp 


ah, 2 


je 


k stat 


pop 


bx 


pop 


ds 


iret 





ah <= 1 ? 

jump if ah = 

jump if ah = 1 
ah=2 ? 



restore registers 



endp 



Wait for key and extract if from the keyboard buffer. 

Output: ah = raw scan code 

al = ASCII translated key 

or 
ah = translated key 
al = OOh 
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E845 



E845 


FB 






E846 


E8 


E854 R 




E849 


74 


FA 




E84B 


E8 


E86E R 




E84E 


89 


1E 001A 


R 


E852 


EB 


EE 




E854 


FA 






E855 


8B 


1E 001A 


R 


E859 


3B 


1E 001C 


R 


E85D 


8B 07 




E85F 


C3 







E860 



E860 



E860 E8 E854 R 

E863 FB 

E864 5B 

E865 1F 

E866 CA 0002 

E869 



C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



Trash: None. 



k_read proc near 

assume csrcode, dsrdata, es: nothing, ss : nothing 



sti 
call 

jz 

call 
mov 
jmp 



k_see .- cli 
mov 
cmp 
mov 
ret 

k read endp 



k see 

k read 

k adv ptr 

word ptr ds : [buffer_head],bx 

short k ret 



bx,word ptr ds: [buffer head] 
bx,word ptr ds : [buffer tail] 
ax,word ptr ds:[bx] 



enable interrupts (again) 
is there a character present? 
interrupts come back disabled! 
loop until something in buffer 
move pointer to next position 
store value in variable 



disable interrupts! ! 
get pointer to head of buffer 
if equal, then nothing there 
get scan code and ascii code 



; Checks 


for key in keyboard buffer, but does not extract it. 


; Output: 


if key is in buffer, then: 




zf = (nz = reset) 




ah = raw scan code 




al = ASCII translated key 




or 




ah = translated key 




al = OOh 




else .- 




zf = 1 (z = set) 




ax = 16th previous key 


; Trash: 


ax is trashed if keyboard buffer is empty. 



kJLook proc far ; must be far!!!! 

assume cs:Code, ds:data, es : nothing, ss : nothing 



call 

sti 
pop 
pop 
ret 

k look endp 



k see 



bx 
ds 
2 



is there a character present? 
interrupts come back disabled! 
must return interrupts enabled 
restore registers 
blow away flags returning: 
zf & ax = k see output, & sti 



Returns keyboard shift state kb_flag in al. 
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E869 



E869 
E86C 

E86E 



AO 0017 R 
EB D4 



E86E 



E86E 


43 


E86F 


43 


E870 


3B 1E 0082 R 


E874 


75 04 


E876 


8B 1E 0080 R 


E87A 




E87A 


C3 


E87B 




E87B 





Output: ah = 0. 

al = kbflag 
Trash: None. 



k stat proc near 

assume cs : code, dS:data, es : nothing, ss : nothing 



mov 
jmp 

k stat endp 



al,byte ptr ds : [kb flag] 
short k ret 



get the shift status flags 



Advances kb buffer ring buffer pointer. 

Input: bx 
Output: bx 
Trash: None. 



k_adv_ptr 

inc 
inc 
cmp 
jne 
mov 
k adv end: 
ret 

k adv ptr 

code ends 



proc near 

assume cs:Code, ds:data, es: nothing, ss : nothing 



bx 

bx 

bx,word ptr ds:[buffer_end] 

k adv end 

bx,word ptr ds:[buffer_start] 



endp 



; move to next word in list 

end of buffer ? 

no, continue 

yes, buffer to beginning 



E87B 



include comm2.asm 



Filename: 



com2.src 



code segment public 'ROM' 

assume cs:Code, ds: nothing, es: nothing, ss : nothing 



Read Status of RS-232 Interface. (rs_stat) 
(8530 not used on the 6300 PLUS) 

Input: dx = if dh = 0, then address of Z8530 channel (sec ctl x). 
if dh <> 0, then address of 8250 data port (com_data x) 
Output: ax = RS-232 (INS8250-compatible) channel status. 
Trash: None. 
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E87B 



E87B OA F6 



E87D 



E87D 52 

E87E 83 C2 05 

E881 EC 

E882 8A E0 



E884 42 

E885 EC 

E886 5A 

E887 C3 



C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



Assumes: com_lstat_x = com_data_x + 5 = dx + 5 (line status) 
com mstat x = com data x + 6 = dx + 6 (modem status) 



rs stat proc near ; ah = 03h 

assume csicode, ds : nothing, es : nothing, ss : nothing 



or 



dh,dh 
sec stat 



com_stat : 

; Get Line Status. 

push dx 

add dx,5 

in al,dx 

mov ah,al 

; Get Modem Status. 



inc 
in 
pop 
ret 



dx 

al,dx 

dx 



scc_stat: 

Get Channel Status. 

xor ax, ax 

out dx,al 

call rs dly 

in al,dx 

test al,scc_txd 

jz scc_no_txd 

or ah , com_txd 
sec no txd: 

test al,scc_rxd 

jz sec no rxd 

or ah , com_rxd 
sec no rxd: 

; Get Error Status. 

mov al,1 

out dx,al 

call rs_dly 

in al,dx 



are we a SCC Z8530 chip? 
if so, take jump% 



INS8250 read status routine. 



save dx = com data x 

dx = comJLstat x 

get line status 

line status comes back in high byte 



dx = com mstat x 

get modem status in low byte 

restore dx = com data x 



SCC Z8530 read status routine. 

al = selects ; ah = no errors 
dx = sec ctl x 

get channel status 

test for transmit ready 

if so, set INS8250-compatible bit. 

test for receive ready 

if so, set INS8250-compatible bit. 



get errors 
dx = sec ctl x 

get error status 
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E888 



E888 



E888 51 

E889 33 DB 

E88B 87 CB 

E88D 

E88D OA F6 

E88F 75 06 



C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



test al.scc fe 
jz sec no fe 



or 
sec no fe : 



ah, com fe 



test al,scc pe 
jz sec no pe 



or 
sec no pe: 

test 

or 
sec no oe : 



ah, com pe 

al,scc_oe 
sec no oe 

ah, com oe 



test for framing error 



if so, set INS8250-compatible bit. 



test for parity error 



if so, set INS8250-compatible bit. 



test for overrun error 



if so, set INS8250-compatible bit. 



Set Modem Status. 

mov al,(com dsr+com cts) 
ret 

rs stat endp 



al = DSR and CTS 



Wait for Status of RS-232 Interface. (rs_ws) 
(8530 not used on the 6300 PLUS) 

Input: ah = RS-232 channel status for which to wait 
ex = RS-232 time-out 

dx = if dh = 0, then address of Z8530 channel (sec ctl x). 
if dh <> 0, then address of 8250 data port to poll. 

Output: AH = Status. 

ZF = set, if status matches, 
reset, if time-out. 

Trash: al & bx destroyed. 

Assumes: com lstat x = com data x + 5 = dx + 5 (line status) 
com mstat x = com data x + 6 = dx + 6 (modem status) 



rs ws proc near 

assume cs : code, ds : nothing, es : nothing, ss : nothing 



save time-out 

clear bx 

BL now has rs232 time out. 



rs ws lp 



push 


ex 


xor 


bx,bx 


xchg 


cx,bx 


: 

or 


dh,dh 


jnz 


rs ws com 



; are we an INS8250 chip? 
; if so, take jump 
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E891 32 CO 

E893 EE 

E894 E8 E8AC R 

E897 

E897 EC 

E898 8A F8 

E89A 22 C4 

E89C 3A C4 

E89E 74 08 

E8A0 E2 EB 

E8A2 FE CB 

E8A4 75 E7 

E8A6 OA E4 
E8A8 

E8A8 8A E7 

E8AA 59 

E8AB C3 

E8AC 



E8AC 



E8AC 9C 

E8AD 51 

E8AE B9 0008 

E8B1 E2 FE 

E8B3 59 

E8B4 9D 

E8B5 C3 

E8B6 



xor al.al 

out dx,al 

call rs_dly 

rs wscom : 

in al,dx 

mov bh,al 

and al,ah 

cmp al.ah 

jz rs_ws_exit 

loop rs_ws_lp 

dec bl 

jnz rs ws lp 

or ah, ah 
rs ws exit: 

mov ah,bh 

pop ex 
ret 

rs ws endp 



rs dly proc near 

assume cs:COde, ds : nothing, es : nothing, ss : nothing 

pushf 

push ex 
mov ex, 8 
rs lp : loop rs_lp 
pop ex 
popf 
ret 

rs dly endp 

assume csreode, ds : nothing, es : nothing, ss : nothing 



al = selects on SCC Z8530 
dx = sec ctl x 



get channel status 

save status in BH. 

mask bits we're waiting for 

are they all on? 

if so, exit with zf set 

inner loop 

outer loop 

time-out, exit with zf reset 

move status to AH. 
restore time-out 



INS8250 Put Byte (com_pb) & SCC Z8530 Put Byte (scc_pb) 
(8530 not used on the 6300 PLUS) 

Transmit Character to RS-232 Interface. 



character to transmit 

RS-232 time-out 

if dh = 0, then address of Z8530 channel (scc_ctl_x). 

if dh <> 0, then address of 8250 data port (com data x). 

line status 



Input: 


al 




ex 




dx 


Output: 


ah 



Trash: bx destroyed. 
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E8B6 



E8B6 


52 


E8B7 


50 


E8B8 


BO 03 


E8BA 


83 C2 04 


E8BD 


EE 


E8BE 


B4 30 


E8C0 


42 


E8C1 


42 


E8C2 


E8 E888 R 


E8C5 


75 13 


E8C7 


B4 20 


E8C9 


4A 


E8CA 


E8 E888 R 


E8CD 


75 OB 


E8CF 


58 


E8D0 


5A 


E8D1 


8A D8 


E8D3 


E8 E87B R 


E8D6 


8A C3 


E8D8 


EE 


E8D9 




E8D9 


C3 


E8DA 




E8DA 


5B 


E8DB 


5A 



E8DC 8A C3 

E8DE 80 CC 80 

E8E1 C3 

E8E2 



Assumes: com mctl x = com_data_x + 4 = dx + 4 
com lstat x = com data_x + 5 = dx + 5 
com mstat x = com data_x + 6 = dx + 6 

sec data x = sec ctl x + 1 = dx + 1 



com pb proc near ; ah = 01h 

assume cs : code, ds : nothing, es : nothing, ss : nothing 



rs pb gb: 



rs pbe : 



ret 



pop 
pop 



bx 
dx 



call rs_stat 

mov al,bl 

or ah,com_te 
ret 



push 


dx ; 


push 


ax ; 


mov 


al,(com rts+com dtr) ; 


add 


dx,4 ; 


out 


dx,al ; 


mov 


ah, (com dsr+com cts) ; 


inc 


dx 


inc 


dx ; 


call 


rs WS ; 


jnz 


rs pbe ; 


mov 


ah, com txd ; 


dec 


dX ; 


call 


rs WS ; 


jnz 


rs pbe ; 


pop 


ax 


pop 


dX ; 


mov 


bl,al ; 


call 


rs stat ; 


mov 


al,bl ; 


out 


dx,al ; 



save dx = com data x 

save character to output in al 

signal RTS & DTR 

dx = com mctl_x 

send to modem control register 

wait for DSR & CTS 

dx = com mstat_x 

wait for modem status register 

if time-out, take jump 

wait for transmit ready 
dx = com lstat_x 
wait for line status register 
if time-out, take jump 

restore character to output in al 

restore dx = com data_x 

save character input/output in bl 

get return status 

restore character input/output in al 

else, output the character 

exit for put and get byte 
if SCC Z8530, dx = sec ctl x 



exit for put byte error 
restore character to output in bl 
if SCC Z8530, restore dx = scc_ctl_x 
else INS8250, restore dx = com_data_x 

get return status 

restore character to output in al 

indicate timeout error 



com pb endp 



; scc pb proc near ; ah = 01h 

; assume cs-.code, ds : nothing, es : nothing, ss : nothing 
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E8E2 



E8E2 52 

E8E3 BO 01 

E8E5 83 C2 04 

E8E8 EE 

E8E9 B4 20 

E8EB 42 

E8EC 42 

E8ED E8 E888 R 

E8F0 75 0E 

E8F2 B4 01 

E8F4 4A 

E8F5 E8 E888 R 



C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 



push 


dx 


push 


ax 


mov 


ah, sec txd 


call 


rs ws 


jnz 


rs pbe 


pop 


ax 


inc 


dx 


out 


dx,al 



pop dx 

jmp short rs_pb gb 



; save dx = sec ctl x 

; save character to output in al 

; wait for transmit ready 

; if time-out, take jump 

; restore character to output in al 

; dx = sec data x 

; else, output the character 

; restore dx = sec ctl x 



sec pb endp 



INS8250 Get Byte (com_gb) & SCC Z8530 Get Byte (scc_gb) 
(8530 not used on the 6300 PLUS) 

Receive Character to RS-232 Interface. 

Input: ex = RS-232 time-out 

dx = if dh = 0, then address of Z8530 channel (sec ctl x). 
if dh <> 0, then address of 8250 data port (com data x) 
Output: al = character received 

ah = line status 
Trash: bx destroyed. 

Assumes.- com_mctl_x = com data x + 4 = dx + 4 
com lstat x = com data x + 5 = dx + 5 
com_mstat x = com data x + 6 = dx + 6 

sec data x = sec ctl x + 1 = dx + 1 



com_gb proc near ; ah = 02h 

assume cs : code, ds : nothing, es : nothing, ss : nothing 



push dx 

mov al.com dtr 

add dx,4 

out dx,al 

mov ah, com dsr 

inc dx 

inc dx 

call rs ws 

jnz rs gbe 

mov ah, com rxd 

dec dx 

call rs ws 



save dx = com data x 

signal DTR 

dx = comjnctl x 

send to modem control register 

wait for DSR 

dx = com mstat x 

wait for modem status register 

if time-out, take jump 

wait for receive ready 

dx = com lstat x 

wait for line status register 
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E8F8 


75 06 


E8FA 


80 E4 0E 


E8FD 


5A 


E8FE 


EC 


E8FF 


C3 


E900 




E900 


5A 


E901 


80 CC 80 


E904 


C3 



E905 



E905 



E905 



E905 

E905 E8 F603 R 



jnz 



rs gbe 



and 


ah,0Eh 


pop 


dx 


in 


al r dx 


ret 





rs gbe: 



pop dx 

or ah , com_te 
ret 



; if time-out, take jump 

Only interested on low nibble, 
restore dx = com data x 
else get character 



exit for get byte error 
if SCC Z8530, restore dx = scc_ctl_x 
else INS8250, restore dx = com_data_x 
indicate timeout error 



com gb endp 



; scc gb proc near ; ah = 02h 

; assume csreode, ds : nothing, es : nothing, ss : nothing 



push dx 

mov ah,scc_rxd 

call rs ws 

jnz rs gbe 



mc 
in 

pop 
jmp 



dx 
al,dx 

dx 

short rs pb gb 



save dx = scc_ctl_x 

wait for receive ready 

if time-out, take jump 

dx = scc_data_x 
else get character 

restore dx = sec ctl x 



sec gb endp 
code ends 
include fdu7.asm 



fdu7.asm 



code segment public 'ROM' 

assume cs : code, ds:data, es : nothing, ss : nothing 



Set Format transfer rate 

Routine sets the disk-state variable to an Established state. 
CAUTION: routine sets the rate on the pertain drive. If this is 
the current drive, and the rate is differnet than the current 
rate, the existing media will be inaccessible! 



f setfrmt proc near 
call f getdrv 



; get drive number in bl% 
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E908 8A 46 02 




c 


mov 


al,f numsecs ; get original al% 


E90B FE C8 




c 


dec 


al ; test format parm% 


E90D 75 08 




c 


jnz 


f nolofmt ; jmp if not low rate% 


E90F C6 87 0090 R 


93 


c 


mov 


diskstate[bx],E48M48D ; set state% 


E914 EB 16 90 




c 


jmp 


f dofmt 


E917 




c 


f nolofmt: 




E917 FE C8 




c 


dec 


al ; test parm% 


E919 75 08 




c 


jnz 


f nomedfmt ; jmp if not 48 in 1.2% 


E91B C6 87 0090 R 


74 


c 


mov 


diskstate[bx],E48M12D ; set state% 


E920 EB 0A 90 




c 


jmp 


f dofmt 


E923 




c 


f nomedfmt: 




E923 FE C8 




c 


dec 


al ; test parm% 


E925 75 OB 


15^ 


c 


jnz 


f oppsfmt ; error % 


E927 C6 87 0090 R 


c 


mov 


diskstate[bx],E12M12D ; set stated 


E92C 




c 


f dofmt: 




E92C E8 E93A R 




c 


call 


f setrate ; set speed% 


E92F EB 06 90 




c 


jmp 


f fmtdone 


E932 




c 


f oppsfmt: 




E932 C6 06 0041 R 


01 


c 


mov 


diskette status, cmd error ; record error % 


E937 




c 


f fmtdone: 




E937 E9 ECC2 R 




c 
c 
c 
c 
c 

Q 


jmp 


f io ret ; cmd over% 


E93A 




f setfrmt 


endp 






c 
c 


Checks 


if requested rate is the same as the last rate 






c 


of data transfer. If so, no action needed. Otherwise, 






c 


set the new speed and wait for the motor/crystal to settle down 






c 
c 
c 
c 
c 


(assume 


? its a retry operation and do the delay). 






INPUT: 


BX - drive bit 


E93A 




c 

C 1 


setrate 


proc near 


E93A 8A 87 0090 R 




c 


mov 


al,diskstate[bx] ; get present state% 


E93E 8A 97 008E R 




c 


mov 


dl,lastrate[bx] ; get last rate% 


E942 8A EO 




c 


mov 


ah,al 


E944 80 E4 CO 




c 


and 


ah,0C0H ; hold rate bits% 


E947 8A F2 




c 


mov 


dh,dl 


E949 80 E6 CO 




c 


and 


dh,0C0H ; hold rate bits% 


E94C 3A E6 




c 


cmp 


ah,dh ; are they the same% 


E94E 74 2F 




c 


jz 


f ratedone ; yes, finito% 


E950 88 87 008E R 




c 

C E 


mov 
NDIF 


lastrate[bx],al ; hold info% 


E954 




C f 


nurate: 




E954 E8 F6BA R 




c 

C E 
C I 


call 
NDIF 
FE BETA 


f_setff ; write to flip-flops% 






c 


; temp 


test code for russ 


E957 51 




c 


push 


ex 






C ; 


mov 


ex, 250 


E958 B9 000A 




c 


mov 


ex, 10 
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E95B 






E95B 


E8 


EF4C R 


E95E 


E2 


FB 


E960 


59 




E961 


8A 


4E 00 


E964 


BO 


01 


E966 


D2 


EO 


E968 


8A 


E1 


E96A 


B1 


04 


E96C 


D2 


EO 


E96E 


OC 


OC 


E970 


OA 


C4 


E972 


34 


01 


E974 


BA 


03F2 


E977 


EE 




E978 


34 


01 


E97A 


BA 


03F2 


E97D 


90 




E97E 


EE 





E97F 

E97F C3 
E980 

E980 



E980 



E987 



E987 



f5 tmp: 



call f wait_one_ms 
loop f5_tmp 
pop ex 



mov 

mov 

shl 

mov 

mov 

shl 

or 

or 

xor 

mov 

out 



cl,f_drive 

al,1 

al,cl 

ah,cl 

cl,4 

al.cl 

al T 0Ch 

al,ah 

al,01h 

dx,f motor_port 

dx,al 



xor al,01h 

mov dx,f motor_port 

nop 

out dx,al 

; end of tmp fix 



drive. % 

mask for motor status. % 

drive number in ah.% 
% 

motor on bit to high nibble. % 

set bits 2 & 3 (0000 1100).% 

drive bits ( & 1). 

toggle drive bits ( & 1).% 

turn on the motor. % 
write a 1d to deselect a% 
or 2c to deselect b% 
toggle drive bits ( & 1).% 
% 

for good measure% 
turn on the motor. % 



ENDIF 



f ratedone: 
ret 
f setrate endp 

code ends 
include kb2.asm 



Filename: kb2.src 

This module includes INT 09h & 16h. 



code segment public 'ROM' 

assume cs : code, ds : nothing, es : nothing, ss : nothing 

ORG 0E987h 



INT 09h — i8041A Keyboard Hardware Interrupt Service Routine 

Note: 'make' -> key is depressed -> OOh + key scan code 
'break' -> key is released -> 80h + key scan code 



k int proc near 

assume cs:COde, ds : nothing, es : nothing, ss : nothing 
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E987 FB 

E988 50 

E989 53 

E98A 51 

E98B 52 

E98C 56 

E98D 57 

E98E 1E 

E98F FC 

E990 2E: 8E 1E E538 R 

E995 06 



E996 E4 60 
E998 8A E0 



E99A BA 0061 

E99D EC 

E99E 8A D8 

E9A0 OC 80 

E9A2 EE 

E9A3 8A C3 

E9A5 EE 



E9A6 8A C4 



E9A8 3C FF 

E9AA 75 06 

E9AC E8 EBC9 R 

E9AF E9 EA63 R 
E9B2 



C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 



sti 

push ax 

push bx 

push ex 

push dx 

push si 

push di 

push ds 
eld 

mov ds,word ptr cs : [set ds word] 

push es 



re-enable interrupts 



clear direction flag 
; prokey fix? 
avoid potential stack problems 



assume cs : code, ds:data, es: nothing, ss : nothing 
Get the scan code. 



in 
mov 



al,p_kscan 
ah,al 



; Reset the keyboard. 



mov 


dx,p kctrl 


in 


al,dx 


mov 


bl.al 


or 


al,080h 


out 


dx,al 


mov 


al.bl 


out 


dx,al 



Retrieve the scan code in both al & ah. 
mov al,ah 



get scan code from data port 
save scan code in ah 



get control port address 

get the status 

save the status in bl 

set bit #7 -- reset 
reset keyboard 

retrieve original status 
send it back to keyboard 



scan code in both registers 



; Test for overrun scan code from keyboard = OFFh. 

; Note: 20 key scan codes can be buffered up by the keyboard. 



k ok: 



; an overrun scan code? 
; if not, continue 

; beep the speaker 



emp 


al,0FFh 


jnz 


k ok 


call 


k beep 


jmp 


k nop 



ah 


= s 


bx 


= ? 


ex 


= ? 


dx 


= ? 


es:di 


= ? 



scan code (make/break) 



al = scan code (make/break) 
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E9B2 


24 7F 


C 
C 
C 
C 


and 


al,07Fh 




; al = scan code make 






; ; les 


di T dword ptr ds 


>: [master tbl 


ptr] ; es:di points to master table 


E9B4 


2E: 8E 06 F000 


C 


mov 


es,word ptr cs 


[code seg] 


; ; ega2 fix 


E9B9 


BB F000 


C 


mov 


bx.code seg 






E9BC 


8E C3 


C 


mov 


es,bx 






E9BE 


BF CBBF R 


C 
C 
C 


mov 


di, offset [kb data table] 


; es:di points to p kscan table 


E9C1 


33 DB 


xor 


bx,bx 




; clear bh 


E9C3 


33 C9 


C 


xor 


cx T cx 




; clear cl 


E9C5 


8A 2E 0017 R 


C 
C 

C 


mov 


ch,byte ptr ds : 


[kb_flag] 




E9C9 


8A D8 


mov 


bl,al 




; bx = scan code make 


E9CB 


D1 E3 


C 


shl 


bx,1 




; bx = 2*(scan code make) 


E9CD 


D1 E3 


C 

c 
c 
c 


shl 


bx,1 




; bx = 4*(scan code make) 






ah 


= scan code (make/break) 


al = scan code (make) 






c 


bx 


= 4*(scan code 


make) = 4*al 








c 


ch 


= kb flag 




cl = 






c 


dx 


= ? 










c 
c 
c 
c 
c 
c 


es:di 


= p kscan base 






E9CF 


4B 


dec 


bx 




; bx = 4*(scan code make)-1 


E9D0 


F6 C5 08 


test 


ch,alt shift 




; alt state? 


E9D3 


75 32 


c 
c 
c 

c 
c . 


jnz 


k ix 




; if so, has highest priority 


E9D5 


4B 


dec 


bx 




; bx = 4*(scan code make)-2 


E9D6 


F6 C5 04 


test 


ch,cntrl shift 




; control state? 


E9D9 


75 2C 


c 
c 
c 
c 
c 
c 
c 


jnz 


k ix 




; if so, next highest priority 


E9DB 


4B 


dec 


bx 




; bx = 4*(scan code make)-3 






Handle CapLk 


Case. 






E9DC 


3C 37 


cmp 


al,55 




; <= scan code <= (7*8)-1 


E9DE 


77 0C 


c 
c 
c 


ja 


k no cap 




; test NumLk case. 


E9E0 


F6 C5 40 


test 


ch,caps lock mode 


; caplock state? 


E9E3 


74 1C 


c 
c 
c 


jz 


k no lock 




; if not, test shift states 


E9E5 


E8 EB8C R 


call 


k bit 




; get kb cap flags bit in cf 


E9E8 


73 17 


c 
c 
c 
c 

C k 

c 

C ; 

c 
c 


jnb 


k no lock 




; (jnc) swap if cf set 


E9EA 


EB 0D 


jmp 


short k lock 




; honor caps lock. 


E9EC 




no cap: 












Handle NumLk 


Case. 






E9EC 


3C 47 


cmp 


al,71 




; scan code >= 71? 
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E9EE 72 11 

E9F0 3C 53 

E9F2 11 OD 

E9F4 F6 C5 20 

E9F7 74 08 

E9F9 

E9F9 F6 C5 03 

E9FC 74 09 

E9FE 4B 

E9FF EB 06 

EA01 

EA01 F6 C5 03 

EA04 75 01 

EA06 4B 



EA07 

EA07 D1 E3 

EA09 03 FB 

EAOB 26: 8B 15 



EAOE 
EA10 
EA12 
EA17 



33 DB 

8A DA 

F6 06 0018 R 01 

74 02 



EA19 8A DE 



EA1B 



EA1B OA D2 
EA1D 74 1C 



EA1F 80 FB CO 

EA22 72 17 

EA24 80 FB D8 

EA27 77 12 



C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



3b 


k no lock 


cmp 


al,83 


ja 


k no lock 


test 


ch,num lock mode 


jz 


k no lock 



k lock: 

test ch,(left shift+right shift) 

jz k_ix 

dec bx 

jmp short k_ix 

k no lock: 

test ch,(left shift+right shift) 

jnz k ix 

dec bx 

; jmp short k ix 



k ix: 



shl bx,1 

add di,bx 

mov dx r word ptr es : [di] 

xor bx,bx 

mov bl,dl 

test byte ptr ds.-[kb flag 1],dlx kb 

jz k_xlat 

mov bl,dh 



k xlat: 



scan code <= 83? 

; numlock state? 
if not, test shift states 

either caps or num lock, 
if so, and shift state 
also true 

bx = 4*(scan code make)-4 
(base case) 

neither caps or num lock, 
(shift state) 

bx = 4*(scan code make)-4 
(base case) fall through 



bx = index into p kscan table 
bx = p_kscan word index 
add p_kscan base & index 

; get data word from table 

clear bh 

move translated key to bx 
are we a deluxe keyboard 
key 

move translated deluxe 

key to key 
bx has translated byte (bh=0) 



ah = scan code (make/break) al = scan code (make) 

bx = deluxe keyboard translated byte (bh = 0) 

ch = kb_flag cl = 

dx = es:[di] (could be deluxe key code) 

es:di = p kscan base + p kscan scan code word index 



Registers are all loaded up. Start going through the cases. 



or 
jz 



dl.dl 
k no case 



Test for special cases. 



cmp 


bl.OCOh 


jb 


k no case 


cmp 


bl,0D8h 


ja 


k no case 



deluxe scan codes are 
NEVER special cases! ! ! ! 



xlated byte special case? 
if not, handle unspecial case 
OCOh <= xlated byte <= 0D8h 
if so, do the special function 



1-168 



ROM BIOS Listing 



ROM BIOS Listing 









C 
C 


; 


Test 


for l 


break' of special case. 


EA29 


80 FB C8 




C 






cmp 


bl,0C8h 


EA2C 


72 04 




C 

C 






jb 


k_jmp 


EA2E 


0A E4 




C 






or 


ah, ah 


EA30 


78 2E 




C 
C 






js 


k none 


EA32 






C 


k 


jmp: 






EA32 


8B F3 




C 






mov 


si,bx 


EA34 


D1 E6 




c 






shl 


si,1 


EA36 


2E: FF A4 


EA6C R 


c 
c 






jmp 


cs:[si+((offset k case) 


EA3B 






c 


k 


no case: 










c 
















c 


; 


Test 


for ' 


break' of non special case. 








c 










EA3B 


0A E4 




c 






or 


ah, ah 


EA3D 


78 21 




c 
c 






js 


k none 








c 


; 


Test 


for ' 


unpause' case. 








c 










EA3F 


F6 06 0018 


R 08 


c 






test 


byte ptr ds : [kb flag 1] 


EA44 


74 OB 




c 






jz 


k no hold 


EA46 


3C 45 




c 






cmp 


al,num lock key 


EA48 


74 16 




c 






je 


k none 


EA4A 


80 26 0018 


R F7 


c 






and 


byte ptr ds : [kb flag 1] 


EA4F 


EB OF 




c 
c 






jmp 


short k none 


EA51 






c 


k 


no hold: 










c 
















c 


; 


Test 


for deluxe scan code. 








c 










EA51 


OA D2 




c 






or 


dl,dl 


EA53 


75 04 




c 
c 






jnz 


k no xcode 


EA55 


8B C2 




c 






mov 


ax,dx 


EA57 


EB 02 




c 
c 






jmp 


short k buf 


EA59 






c 


k 


no xcode: 




EA59 


8A C3 




c 
c 






mov 


al.bl 


EA5B 






c 
c 


k 


buf: 






EA5B 


E8 EBB3 R 




c 






call 


k try 


EA5E 


74 03 




c 
c 






jz 


k nop 


EA60 






c 
c 


k 


none 












c 




Send 


speci 


fie end of interrupt (SEOI) 








c 










EA60 


E8 EBAB R 




c 
c 






call 


k eoi 


EA63 


07 




c 


k 


nop: 


pop 


es 


EA64 


1F 




c 






pop 


ds 



is xlated byte a shift key? 
if so, do 'break' of shift key 
OCOh <= xlated byte < 0C8h 

nothing for 'break' of others. 

jump to special case routine, 
if so, si gets special index 
make it a word index 



-(2*0C0h))] 



; do nothing if 'break' of key. 



.pause mode 



,not pause mode 



are we in hold state? 
if not, continue, 
don't clear hold state 
on num lock_key (Pause) 
reset hold state bit & 
ignore the key. 



move deluxe key to scan code 
put ax into the buffer 



; move translated key to key 

put ax into kb_buffer. 
try to put ax into kb buffer, 
zf set (z) if buffer is full 
zf reset (nz) if buffer got ax 



; scan code translate to nothing 
to pic 'command' port. 

; send specific end of interrupt 
; restore registers without issuing SEOI 
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EA65 5F 

EA66 5E 

EA67 5A 

EA68 59 

EA69 5B 

EA6A 58 

EA6B CF 



EA6C 80 E5 0C 
EA6F 80 FD 0C 
EA72 75 EC 



EA74 C7 06 0072 R 1234 
EA7A E9 DAD3 R 



EA7D 

EA7D 80 0E 0018 R 08 

EA82 E8 EBAB R 

EA85 FB 



EA86 80 3E 0049 R 07 

EA8B 74 OB 

EA8D 8B 16 0063 R 

EA91 83 C2 04 

EA94 AO 0065 R 

EA97 EE 

EA98 F6 06 0018 R 08 

EA9D 75 F9 

EA9F EB C2 



EAA1 E8 EBAB R 

EAA4 FB 

EAA5 CD 05 

EAA7 EB BA 



C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 



pop 


di 


pop 


si 


pop 


dx 


pop 


ex 


pop 


bx 


pop 


ax 


iret 





Test for system reset sequence, 'make' only. 



k_res: and ch,(alt shift+cntrl shift) 
emp ch,(alt_shift+cntrl shift) 
jne k none 

; CTL ALT DEL system reset. 

word ptr ds : [reset_flag] ,01234h 



is it CTL ALT shift? 



mov 



diagnostics 1 



set flag for warm boot 
re-boot 



Pause waiting for another key. 'make' only. 



k pause: 



byte ptr ds : [kb_flag 1], pause mode 



call k eoi 
sti 



; set the pause bit. 

send specific end of interrupt 
k eoi clears interrupts 
we must undo that here 



; Note: Video not disabled during vertical retrace. 

emp byte ptr ds : [v mode], 7 ; never on a monochrome card 

je k hold 

mov dx,word ptr ds : [v base6845] ; get 6845 pointer register 

add dx,4 ; get 6845 mode control register 

mov al,byte ptr ds : [v_3x8] ; get the video mode last sent 

out dx,al ; enable video 

k_hold: test byte ptr ds : [kb_flag_1], pause mode ; test the pause bit. 

jnz k_hold ; loop until pause bit cleared 

jmp short k nop 



Print Screen sequence, 'make' only. 



k_prt: call k eoi 
sti 

INT 5h 

jmp short k nop 



send specific end of interrupt 

enable interrupts% 

issue print screen interrupt 
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C 
C 
C 
C 
C 
C 
C 
C 
C 




Deluxe 


code put NUL into kb buffer, 'make' only. 


EAA9 
EAAC 


B8 0300 
EB AD 


k nul: 


mov 
jmp 


ax,0300h 
short k buf 


NUL=X03 

put ax into the buffer 






; Four 


state shifts, 'make' & 'break' in kb flag 


1 plus history in kb flag. 


EAAE 
EABO 


BO 80 

E8 EADB R 


c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


k ins: 


mov 
call 


al, insert shift 
k 4tog 


INS toggle lock 
toggle 4 state 


EAB3 
EAB5 
EAB7 
EABA 


OA E4 
78 A9 
B8 5200 
EB 9F 




or 

js 
mov 


ah, ah 

k none 

ax, (insert key*100h)+00h 

k buf 


is INS toggle 'make' ? 
if not, exit 

else, ax gets deluxe INS key 
put ax into the buffer 


EABC 
EABE 
EAC1 
EAC3 
EAC6 


BO 40 

E8 EADB R 

B1 01 

E8 EB6A R 

EB 98 


c 
c 
c 
c 
c 
c 
c 


k cap: 
k nonl: 


mov 

call 

mov 

call 

jmp 


al,caps lock shift 
k 4tog 

cl, 00000001b 
k LED cap 
short k none 


; CAPS LOCK toggle lock 
toggle 4 state 
CAPS LOCK LED is bit #0. 


EAC8 
EACA 
EACD 
EACF 
EAD2 


BO 20 
E8 EADB R 
B1 02 
E8 EB60 R 
EB F2 


c 
c 
c 
c 
c 
c 
c 


k num: 


mov 
call 
mov 
call 


al,num lock shift 
k 4tog 

cl, 00000010b 
k LED num 
short k nonl 


; NUM LOCK toggle lock 
toggle 4 state 
NUM LOCK LED is bit #1. 
send LED information 


EAD4 
EAD6 
EAD9 


BO 10 
E8 EADB R 
EB EB 


c 
c 
c 
c 
c 


k scr : 


mov 

call 

jmp 


al,scrl lock shift 
k 4tog 
short k nonl 


; SCROLL LOCK toggle lock 
toggle 4 state 


EADB 
EADD 


OA E4 
78 OF 


c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


k 4tog 


or 


ah, ah 
k 4res 


is toggle shift 'make' ? 
if 'break' reset kb flag 1 


EADF 
EAE3 


84 06 0018 R 
75 08 




test 
jnz 


byte ptr ds : [kb flag 1],al 
k 4ret 


if 'make' , test bit. 
return if already pressed 


EAE5 
EAE9 
EAED 


08 06 0018 R 
30 06 0017 R 
C3 


k 4ret 


or 

xor 

ret 


byte ptr ds : [kb flag 1],al 
byte ptr ds : [kb flag],al 


set the bit. 

toggle kb flag history. 


EAEE 
EAFO 
EAF4 


F6 DO 

20 06 0018 R 

C3 


k 4res 


not 
and 
ret 


al 

byte ptr ds : [kb flag 1],al 


; if 'break' , reset bit only. 






c 
c 


; 


Two state shifts, 'make' & 'break' in kb 


flag only. 
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C 
C 
























EAF5 BO 08 


C 


k alt: 


mov 


al,alt shift 




; ALT set/reset kb flag 


EAF7 E8 EB16 R 


C 
C 
C 




call 


k 2tog 




; toggle 2 state 


EAFA 33 CO 




xor 


ax, ax 






EAFC 86 06 0019 R 


C 




xchg 


al,byte ptr ds : 


^alt input] 


; alt input gets 0. 


EB00 0A CO 


C 




or 


al.al 




; was alt input 0? 


EB02 74 C2 


C 




je 


k nonl 




; if so, do nothing. 


EB04 E9 EA5B R 


C 
C 




jmp 


k buf 




; else, put it into buffer. 


EB07 BO 04 


C 
C 


k Ctl: 


mov 


al.cntrl shift 




; CTL set/reset kb flag 


EB09 EB 06 


C 
C 




jmp 


short k 2ret 




; toggle 2 state and return 


EBOB BO 02 


C 
C 


k lsh: 


mov 


al,left shift 




; LEFT SHIFT set/reset kb flag 


EBOD EB 02 


c 
c 




jmp 


short k 2ret 




; toggle 2 state and return 


EBOF BO 01 


c 
c 


k rsh: 


mov 


al, right shift 




; RIGHT SHIFT set/reset kb flag 




c 
c 




jmp 


short k 2ret 




; fall through 


EB11 


c 
c 


k 2ret 










EB11 E8 EB16 R 


c 




call 


k 2tog 




; toggle 2 state 


EB14 EB BO 


c 
c 
c 




jmp 


short k nonl 






EB16 OA E4 


k 2tog 


or 


ah, ah 




; is set/reset shift 'make' ? 


EB18 78 05 


c 
c 




js 


k 2res 




; if 'break' , reset bit only. 


EB1A 08 06 0017 R 


c 




or 


byte ptr ds : [kb flag],al 


if 'make' , set bit only. 


EB1E C3 


c 
c 
c 




ret 








EB1F F6 DO 


k 2res: 


not 


al 






EB21 20 06 0017 R 


c 




and 


byte ptr ds : [kb flag],al 


if 'break' , reset only. 


EB25 C3 


c 
c 
c 
c 
c 
c 
c 




ret 












Alternate Numeric Keypad 


. 'make' only. 




EB26 41 


k alt9: 


inc 


ex 




Alternate Numeric Keypad #9 


EB27 41 


c 


k alt8: 


inc 


ex 




Alternate Numeric Keypad #8 


EB28 41 


c 


k alt7: 


inc 


ex 




Alternate Numeric Keypad #7 


EB29 41 


c 


k alt6: 


inc 


ex 




Alternate Numeric Keypad #6 


EB2A 41 


c 


k alt5: 


inc 


ex 




Alternate Numeric Keypad #5 


EB2B 41 


c 


k alt4: 


inc 


ex 




Alternate Numeric Keypad #4 


EB2C 41 


c 


k alt3: 


inc 


ex 




Alternate Numeric Keypad #3 


EB2D 41 


c 


k alt2: 


inc 


ex 




Alternate Numeric Keypad #2 


EB2E 41 


c 


k altl: 


inc 


ex 




Alternate Numeric Keypad #1 


EB2F 


c 
c 
c 


k altO: 








Alternate Numeric Keypad #0 


EB2F BO OA 




mov 


al,10 






EB31 F6 26 0019 R 


c 




mul 


byte ptr ds : [alt 


input] 


alt input = (10*alt input)+cl 
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EB35 02 C1 
EB37 A2 0019 R 
EB3A EB 8A 



EB3C 


BO 30 


EB3E 


E8 EBB3 R 


EB41 


74 03 


EB43 


E9 EA5B R 


EB46 


E9 EA63 R 



EB49 
EB4C 
EB50 
EB54 
EB59 
EB5B 
EB5D 

EB60 



BB 001E R 
89 1E 001A R 
89 1E 001C R 
C6 06 0071 R 80 
CD 1B 
33 CO 
E9 EA5B R 



EB60 



EB60 F6 06 0018 R 01 
EB65 74 03 
EB67 80 F1 80 



EB6A 

EB6A 0A E4 

EB6C 78 1D 

EB6E 84 06 0017 R 

EB72 74 03 

EB74 80 F1 80 



add 


al.cl 


mov 


byte ptr ds : [alt input], al 


jmp 


short k nonl 



Double Zero on Keypad, 'make' only. 



k 00: mov 
call 
jz 
jmp 



al,'0' 
k try 
k nopl 
k buf 



try to put ax into kb buffer, 
zf set (z) if buffer is full 
zf reset (nz) if buffer got ax 
put it into buffer, again. 



k nopl: jmp k nop 



Break key sequence, 'make' only. 



k brk: mov 
mov 
mov 
mov 
INT 
xor 
jmp 

k int endp 



bx,ds: (offset kb buffer) 
word ptr ds : [buffer_head],bx 
word ptr ds : [buffer tail],bx 
byte ptr ds : [bios break], 80h 
1Bh 
ax, ax 
k buf 



reset buffer to empty 

turn on bios break bit 
break interrupt vector 
ax gets deluxe OOh 
put ax into the buffer 



Puts keyboard LED's in correct state after CAPS/NUM LOCK. 

Input: ah = scan code (make or break) 

al = kb_flag bit for CAPS/NUM LOCK (caps_lock_shift or num_lock_shift) 
cl = 00000001b for CAPS LOCK LED or 00000010b for NUM LOCK LED. 

Output: None. 

Trash: al & cl destroyed. 



k LED num 



proc near 

assume cs:Code, ds:data, es : nothing, ss : nothing 



test 

jz 
xor 



k LED_cap : 
or 
js 



test 

jz 

xor 



byte ptr ds : [kb_flag_1],dlx_kb 

k_LED_cap 

cl, 10000000b 



ah, ah 
k_LED_ret 

byte ptr ds: [kbjflag] ,al 

k_LED_cmd 

cl, 10000000b 



are we a deluxe keyboard 
if kb, LED is num lock 
if deluxe kb, LED is 
~num lock 



is CAPS/NUM LOCK 'make' ? 
if not, exit 

is CAPS/NUM LOCK kbjflag set ? 
if not, LED data is ok. 
else, flip sense of LED data. 
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EB77 

EB77 E4 64 

EB79 A8 02 

EB7B 75 FA 

EB7D BO 13 

EB7F E6 60 

EB81 

EB81 E4 64 

EB83 A8 02 

EB85 75 FA 

EB87 8 A C1 

EB89 E6 60 
EB8B 

EB8B C3 

EB8C 



EB8C 



EB8C 8B F3 

EB8E 33 DB 
EB90 8A D8 



EB92 B1 03 

EB94 D3 CB 

EB96 B1 03 

EB98 D2 C7 



EB9A 8A CF 
EB9C 32 FF 



EB9E 26: 8A 59 F9 



C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



k_LED_cmd: 

in al,kb_status 

test al, 00000010b 

jnz k LED cmd 

mov al,013h 

out p kscan,al 

k_LED_dat: 

in al,kb status 

test al, 00000010b 

jnz k LED dat 



mov 
out 
k_LED_ret: 
ret 

k LED num 



al.cl 

p kscan,al 



endp 



polling loop to send command. 

get 8041 status 

test input buffer bit 

if not ok to write cmd, loop. 

keyboard 'LED' command, 
send keyboard 'LED' command. 

polling loop to send data. 

get 8041 status 

test input buffer bit 

if not ok to write data, loop. 

retrieve keyboard 'LED' data, 
send keyboard 'LED' data. 



; Get kb 


cap 


flags 


bit 


into the 


carry flag (cf). 


; Input: 


al 


= scan 


code (make) 






cl 


= 










es 


di = 


p kscan base 




; Output: 


cf 


set if 


kb 


cap flags 


bit 


Trash: 


si 


destroyed 







k_bit proc near 

assume cs : code, ds:data, es : nothing, ss : nothing 



mov 



si,bx 



xor 


bx,bx 


mov 


bl.al 


mov 


cl,3 


ror 


bx,cl 


mov 


cl,3 


rol 


bh,cl 



mov cl,bh 
xor bh,bh 



mov bl,byte ptr es : [di+bx-7] 



save bx 

clear bh 

bx = scan code (make) index 

bx = 00000000 OOxxxyyy 

rotate right bx 3 

bx = yyyOOOOO OOOOOxxx 

rotate left bh 3 
bx = OOOOOyyy OOOOOxxx 
bh = remainder = (0-7) 
bl = quotient = (0-6) 

cl = remainder = (0-7) 
bx = quotient = (0-6) 



bl = proper cap flags byte 
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EBA2 


D2 


D3 


C 




rcl 


bl.cl 


rotate (0-7) times into bit #7 


EBA4 


32 


C9 


C 




xor 


cl.cl 


cl = 


EBA6 


DO 


D3 


C 
C 
C 




rcl 


bl,1 


rotate into cf bit #7 


EBA8 


8B 


DE 




mov 


bx,si 


restore bx 


EBAA 


C3 




c 

c 

c * 

c 

c 

c 




ret 






EBAB 






c bit 


endp 














Input: 


None. 










c 
c 
c 
c 
c 

C I. 

c 
c 
c 
c 




Output: 


None. 












Trash: 


al & dx destroyed. 




EBAB 






c eoi 


proc 


near 










Send 


specific 


end of interrupt (SEOI) to pic 'command' port. 


EBAB 


FA 






cli 




disable interrupts 


EBAC 


BO 


61 


c 




mov 


al,pic seoi 1 


specific end of interrupt 


EBAE 


BA 


0020 


c 




mov 


dx,pic 


command to pic 'command' port. 


EBB1 


EE 




c 
c 




out 
sti 


dx,al 


enable interrupts 


EBB2 


C3 




c 
c 

C l« 

c 
c 
c 
c 
c 




ret 






EBB3 






c eoi 


endp 














Try to 


put ax into the kb buffer. 












Input: 


ax = word to put in kb buffer. 








c 




Output: 


zf set (z) if buffer is full. 


(ax trashed) 








c 
c 
c 
c 
c 

C l< 






zf reset (nz) if buffer got ax. 


(ax saved) 










Trash: 


bx, ex, dx, & si destroyed (in general). 


EBB3 






: try 


proc 


near 










c 
c 
c 




assume 


cs:Code, ds:data, es : nothing, ss 


nothing 


EBB3 


8B 


1E 001C R 




mov 


bx,word ptr ds : [buffer tail] 


get buffer end pointer 


EBB7 


8B 


F3 


c 




mov 


si,bx 


save the value 


EBB9 


E8 


E86E R 


c 
c 
c 




call 


k adv ptr 


advance the tail 


EBBC 


3B 


1E 001A R 




cmp 


bx,word ptr ds : [buffer head] 


has the buffer wrapped around 


EBCO 


74 


07 


c 
c 




je 


k beep 


zf is reset (nz) 


EBC2 


89 


04 


c 




mov 


word ptr ds : [si],ax 


store the value 


EBC4 


89 


1E 001C R 


c 




mov 


word ptr ds : [buffer tail],bx 


move the pointer up 


EBC8 


C3 




c 
c 

C l< 

c 




ret 




return zf reset (nz) 


EBC9 






: try 


endp 
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C 
C 




Input: 


None. 
















C 
C 
C 
C 
C 

c y 




Output 


zf set 


(z 


) always. 












Trash: 


ax T bl, 


ex, 


& dx 


destroyed. 




EBC9 




: beep 


proc 


near 
















C 
C 
C 
C 
C 




assume 


cs:Code, 


ds 


:data 


, es: nothing, ss 


: nothing 








call 


k eoi 










; send specific end of interrupt 


EBC9 


BA 0061 




mov 


dx,p kctrl 








; get kb control port address 


EBCC 


EC 


C 




in 


al,dx 










; get control data 


EBCD 


8A EO 


c 
c 
c 
c 

C k 




mov 


ah,al 










; save control data 


EBCF 


B3 80 




mov 


bl,80h 










; outer loop counter 


EBD1 


24 FC 


_lp : 


and 


al.OFCh 










turn off speaker data 


EBD3 


EE 


C 
C 
C 




out 


dx,al 












EBD4 


B9 0048 




mov 


cx,48h 










set up count 


EBD7 


E2 FE 


c 
c 
c 




loop 


$ 










delay awhile 


EBD9 


OC 02 




or 


al,02h 










turn on speaker 


EBDB 


EE 


c 
c 
c 




out 


dx,al 












EBDC 


B9 0048 




mov 


cx,48h 










set up count 


EBDF 


E2 FE 


c 
c 
c 




loop 


$ 










delay awhile 


EBE1 


FE CB 




dec 


bl 










decrement outer loop counter 


EBE3 


75 EC 


c 
c 




jnz 


k lp 










zf is set (z) 


EBE5 


8A C4 


c 




mov 


al,ah 










restore control data 


EBE7 


EE 


c 




out 


dx,al 












EBE8 


E8 EBAB R 


c 




call 


k eoi 










send specific end of interrupt 


EBEB 


C3 


c 
c 

C k 

c 




ret 












return zf set (z) 


EBEC 




beep 




endp 












EBEC 




c 

C k 
c 
C k 


datal 


proc 














EBEC 


EAAE R 


case 


dw 


k ins 






kbins 


(OCOh) 


- 


EBEE 


EABC R 


C 




dw 


k cap 






kbcap 




I 


EBFO 


EAC8 R 


c 




dw 


k num 






kbnum 




I 


EBF2 


EAD4 R 


c 




dw 


k scr 






kbscr 




I 


EBF4 


EAF5 R 


c 




dw 


k alt 






kbalt 




'make' & 'break' 


EBF6 


EB07 R 


c 




dw 


k ctl 






kbctl 




I 


EBF8 


EBOB R 


c 




dw 


k lsh 






kblsh 




I 


EBFA 


EBOF R 


c 
c 
c 




dw 


k rsh 






kbrsh 




V 


EBFC 


EA6C R 




dw 


k res 






kbres 


(0C8h) 


- 


EBFE 


EB49 R 


c 




dw 


k brk 






kbbrk 




I 


ECOO 


EA7D R 


c 




dw 


k pause 






pause 




I 
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EC02 EAA1 R 
EC04 EAA9 R 
EC06 EA60 R 



EC08 
ECOA 
ECOC 
ECOE 
EC10 
EC12 
EC14 
EC16 
EC18 
EC1A 



EB26 R 
EB27 R 
EB28 R 
EB29 R 
EB2A R 
EB2B R 
EB2C R 
EB2D R 
EB2E R 
EB2F R 



EC1C EB3C R 

EC1E 

EC1E 



EC1E 



0080 
0061 
0002 
0093 
0074 
0015 



0020 
0010 
0000 
0040 
0080 



EC59 




EC59 




EC59 


FB 


EC5A 


55 


EC5B 


06 



dw 
dw 
dw 

dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 



k prt 
k nul 
k none 

k_alt9 
k_alt8 
k_alt7 
k_alt6 
k_alt5 
k_alt4 
k_alt3 
k_alt2 
k_alt1 
k alto 



dw k_00 

k datal endp 

code ends 
include fdul.asm 



kbprt 
kbnul 
NONE 

kdec9 
kdec8 
kdec7 
kdec6 
kdec5 
kdec4 
kdec3 
kdec2 
kded 
kdecO 

kdblO (0D8h) 



'make 



only 



CODE 



code segment public 'ROM' 

assume cs : code, ds : data, es : nothing, ss : nothing 



defines to support 1.2Mb floppy% 



U48M48D equ 
U48M12D equ 
U12M12D equ 
E48M48D equ 
E48M12D equ 
E12M12D equ 



80h 
61h 
02h 
93h 
74h 
15h 



f check valid uses Offh as an illegal rate%% 

established state only used in format cmd and at end of% 
successful run% 



DOUBLE 
ESTAB 
HIRATE 
MEDRATE equ 
LORATE equ 



equ 
equ 
equ 



20h 
10h 
OOh 
40h 
80h 



fd io 



ORG 


OEC 


proc 


far 


sti 




push 


bp 


push 


es 



enable interupts 
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EC5C 1E 


C 




push 


ds 




EC5D 56 


C 




push 


si 




EC5E 57 


C 




push 


di 




EC5F 52 


C 




push 


dx 


; head & drive# 


EC60 51 


C 




push 


ex 


; cyl. & sec# 


EC61 53 


C 




push 


bx 


; buffer offset 


EC62 50 


C 




push 


ax 


; command & #secs 


EC63 52 


C 




push 


dx 


; this one gets modified(96 TPI) 


EC64 8B EC 


C 

c 




mov 


bp,sp 


; BP preserves SP throughout 




c 
c 
c 


; test 


command 


code & use jump table to jump to 


appropriate routine 


EC66 2E: 8E 1E E538 R 




mov 


ds,word ptr cs : [set ds word] 


; DS = data seg (40h) 


EC6B 80 26 003F R OF 


c 




and 


motor status, OFh 


; preserve motor on bits. 


EC70 80 FC 00 


c 




cmp 


ah,0 ~ 


; Is it a reset command? 


EC73 74 24 


c 




jz 


diskette io1 


; Yes, so ignore drive param. 


EC75 80 FA 01 


c 




cmp 


dl,1 


; max. drives 


EC78 77 18 


c 




ja 


f io1 


; drive out of range. 


EC7A 80 FC 05 


c 




cmp 


ah T 5 


; max. command. 


EC7D 76 1A 


c 




jbe 


diskette io1 


; command in range 


EC7F 80 FC 14 


c 




cmp 


ah r 14h 


; range check% 


EC82 76 0E 


c 




jbe 


f io1 


; error if 6<=cmd<=14% 


EC84 "80 FC 18 


c 




cmp 


ah,18h 


range check% 


EC87 73 09 


c 




jae 


f io1 


error if >=18h% 


EC89 80 EC OF 


c 




sub 


ah,0fh 


put new cmd in range% 


EC8C 88 66 03 


c 




mov 


f command, ah 


store new command% 


EC8F EB 08 90 


c 




jmp 


diskette io1 


cont% 


EC92 


c 


f io1: 








EC92 C6 06 0041 R 01 


c 




mov 


diskette status, cmd error 


01h 


EC97 EB 30 


c 




jmp 


short f io quit 


quick return% 


EC99 


c 


diskette io1: 






EC99 FC 


c 




eld 




Autoincrement for strings. 


EC9A E8 EF6B R 


c 
c 




call 


f check valid 


Returns with CY set if err &% 
sets current & orignl states% 


EC9D 


c 


f retry 


. 




% 


EC9D E8 F60C R 


c 




call 


f nustate 


decide new state, set speed% 


ECAO 80 66 00 01 


c 
c 




and 


byte ptr f drive, 1 


use only dirve LSB for retry% 
parm changed in f seek% 


ECA4 32 FF 


c 




xor 


bh,bh ; 


clear high byte 


ECA6 8A 5E 03 


c 




mov 


bl,f command ; 


move selection into low byte% 


ECA9 D1 E3 


c 




shl 


bx,1 _ ; 


multiply by 2 


ECAB 2E: FF A7 ECBO R 


c 
c 
c 
c 
c 
c 
c 




jmp 


cs: [f table. bx] 




ECBO 


f table 


label 


word 




ECBO ECFA R 




dw 


f reset ; 


AH = (reset) 


ECB2 ECC2 R 


c 




dw 


f io ret ; 


AH = 1 (status) 


ECB4 ED57 R 


c 




dw 


f rdata ; 


AH = 2 (read) 


ECB6 F691 R 


c 




dw 


f wdata ; 


AH = 3 (write) 


ECB8 ED57 R 


c 




dw 


f rdata ; 


AH = 4 (verify) 


ECBA F691 R 


c 




dw 


f wdata ; 


AH = 5 (format) 


ECBC F5EB R 


c 




dw 


f dtype ; 


AH'= 6(15H) (read DASD type)% 


ECBE EFB3 R 


c 




dw 


f chngln ; 


AH'= 7(16H) (chk change-line sta 
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ECCO 


E905 R 


C 
C 
C 
C 
C 




dw 


f setfrmt ; AH'= 8(17H) (set format type/spe 


ECC2 




f io 


ret: 




ECC2 


8B E5 


C 
C 




mov 


sp,bp 


for safety sake. (several 
routines jump here if error )% 


ECC4 


E8 E665 R 


C 




call 


f tstretry 


chk if retry needed% 


ECC7 


72 D4 


C 




jc 


f retry 


do retry% 


ECC9 




C 


f io 


quit: 




% 






C 


; quit processing interrupt / 


ECC9 


50 


C 




push 


ax 


hold returns for cmd 15h% 


ECCA 


E8 F5AB R 


C 
C 




call 


f nee reset 


reset if necessary. 

f nee reset is in fdu4.asm.% 


ECCD 


BB 0002 


c 




mov 


bx,2 


motor wait parameter. 


ECDO 


E8 F62E R 


c 




call 


f get var 


Returns in AH. 


ECD3 


A2 0040 R 


c 
c 
c 




mov 


motor count, al 


motor shut off value. 


ECD6 


58 




pop 


ax 


restore returns% 


ECD7 


80 7E 03 06 


c 




cmp 


byte ptr f command, 6 


massage return info of cmd15h% 


ECDB 


75 06 


c 




jnz 


f retstat 


else put dskette status in AH% 


ECDD 


86 EO 


c 




xchg 


ah,al 


put info in ah% 


ECDF 


F8 


c 




clc 




clr CY, no error% 


ECEO 


EB OB 90 


c 




jmp 


f io exit 


done% 


ECE3 




c 


f retstat: 




% 


ECE3 


32 CO 


c 




xor 


al,al 


zero AL. 


ECE5 


8A 26 0041 R 


c 
c 
c 




mov 


ah, diskette status 


ECE9 


80 FC 01 




cmp 


ah,1 


ECEC 


F5 


c 
c 
c 




cmc 




ECED 




f io 


exit: 




% 






c 








sp restored above% 


ECED 


5B 


c 




pop 


bx 


discard DX. 


ECEE 


5B 


c 




pop 


bx 


discard AX. 


ECEF 


5B 


c 




pop 


bx 


ECFO 


59 


c 




pop 


ex 


ECF1 


5A 


c 




pop 


dx 


ECF2 


5F 


c 




pop 


di 


ECF3 


5E 


c 




pop 


si 


ECF4 


1F 


c 




pop 


ds 


ECF5 


07 


c 




pop 


es 


ECF6 


5D 


c 
c 
c 
c 
c 
c 
c 
c 
c 




pop 


bp 


ECF7 


CA 0002 




ret 


2 


ECFA 




fd io endp 








; 


Reset 


and reprogram the FDC without turning the motors off. 






c 
c 
c 
c 


; 


(Motor 


turned off for gen 3 reset within f nurate)% 
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ECFA 


C 
C 


f reset proc 


near 




ECFA FA 


C 
C 

c 




cli 




; disable interrupts 


ECFB BO 66 


c 




mov 


al,pic seoi 6 


; specific end of interrupt 


ECFD BA 0020 


c 




mov 


dx,pic 


; to pic 'command' port. 


EDOO EE 


c 
c 
c 




out 


dx,al 




ED01 42 




inc 


dx 


pic 'data' port. 


ED02 EC 


c 




in 


al,dx 


read mask. 


ED03 24 BF 


c 




and 


al, 10111111b 


enable IR6. 


ED05 EE 


c 
c 
c 
c 
c 




out 


dx,al 






; Develop mask 


for motor control port. 




ED06 AO 003F R 




mov 


al, motor status 


which motor is running? 


ED09 24 OF 


c 




and 


al.OFh 


blow off high 4 bits. 


EDOB 74 OE 


c 




jz 


f r2 


no motors running. 


EDOD 8A EO 


c 




mov 


ah,al 




EDOF B1 04 


c 




mov 


cl,4 




ED11 D2 EO 


c 
c 
c 
c 
c 




shl 


al,cl 


move to high nib. 




; A motor is on. Find out which one. 




ED13 


f r1: 








ED13 DO EC 


c 




shr 


ah,1 ; 


determine drive select 


ED15 72 04 


c 




jc 


f r2 ; 


from motor enable bit. 


ED17 FE CO 


c 




inc 


al 




ED19 EB F8 


c 




jmp 


short f M 




ED1B 


c 
c 
c 
c 
c 


f r2: 










; Reset signal 


has to be maintained for at least 


14 clocks. 


ED1B C6 06 0041 R 00 




mov 


diskette status, 




ED20 OC 08 


c 




or 


al,8 ~ ; 


set bit 3. 


ED22 BA 03F2 


c 




mov 


dx,f motor port 




ED25 EE 


c 




out 


dx,al ; 


send reset signal. 


ED26 OC 04 


c 




or 


al,4 ; 


set bit 2. 


ED28 C6 06 003E R 00 


c 




mov 


seek status, 




ED2D EE 


c 




out 


dx,al ; 


clear reset. 


ED2E FB 


c 




sti 






ED2F E8 F686 R 


c 
c 
c 




call 


f sis 


sense int. status 


ED32 B4 03 




mov 


ah,f specify cmd 




ED34 E8 F6C5 R 


c 




call 


f put byte 




ED37 BB 0000 


c 




mov 


bx,0 ; 


1st specify byte. 


ED3A E8 F62E R 


c 




call 


f get var 




ED3D 8A EO 


c 




mov 


ah,al 




ED3F E8 F6C5 R 


c 




call 


f put byte 




ED42 BB 0001 


c 




mov 


bx,1 ; 


2nd specify byte. 


ED45 E8 F62E R 


c 




call 


f get var 




ED48 8A EO 


c 




mov 


ah,al 




ED4A E8 F6C5 R 


c 
c 




call 


f put byte 
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ED4D E9 ECC2 R 
ED50 



ED50 

ED50 BO OC 

ED52 BA 03F2 

ED55 EE 

ED56 C3 
ED57 



ED57 



ED57 80 26 003F R 7F 
ED5C E8 F5C6 R 
ED5F 73 08 



ED61 


B9 01F4 


ED64 






ED64 


E8 


EF4C R 


ED67 


E2 


FB 


ED69 






ED69 


BO 


46 


ED6B 


80 


7E 03 04 


ED6F 


75 


06 


ED71 


BO 


42 


ED73 


33 


DB 


ED75 


8E 


C3 



ED77 



jmp f io ret 
f reset endp 



This routine is called by the timer int routine when motor count = 



stop disk 

mov 
mov 
out 
ret 
stop disk 



proc near 

al.OCh 

dx,f notor_port 

dx,al 

endp 



f rdata proc near 



and motor status ,07Fh 
call f_motor_on 
jnc f_rd1 

; slow motor delay loop 



mov ex, 500 

f rd loop: 

call f wait one ms 

loop f rd loop 



f rd1: 



mov al,046h 

emp byte ptr f command, 4 

jne f rw common 

mov al,042h 

xor bx,bx 

mov es,bx 



clear high bit, indicate read 
motor was on, no delay. 



slow motors 

approx. 500 ms delay for 



DMA mode byte: channel 2, 
single mode, write transfer. 
Is it a verify command? 
No, must have been a read. 
DMA mode byte: channel 2, 
single mode, verify transfer. 
Fool the DMAC into thinking 
there is a full segment to 
play with. 



f rdata endp 



Common (f rw common) 
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C 
C 
C 
C 
C 
C 
C 
C 
C 

c 


; 


INPUT: 


AL dma mode byte. 










; 


OUTPUT 












; 


DESTROYS: 




ED77 






f rw 


common 


proc near 




ED77 


C6 


06 0040 R FF 


c 
c 




mov 


motor count, OFFh 


; long wait. 


ED7C 


E8 


EE49 R 


c 
c 
c 
c 
c 




call 


f set dma 


; pass mode byte on through. 








; Clear out status from previous operation. 




ED7F 


06 






push 


es 




ED80 


1E 




c 




push 


ds 




ED81 


07 




c 




pop 


es 




ED82 


32 


CO 


c 




xor 


al,al 




ED84 


B9 


0007 


c 




mov 


ex, 7 




ED87 


BF 


0042 R 


c 




mov 


di, off set nee status 




ED8A 


F3/ AA 


c 




rep 


stosb 




ED8C 


07 




c 
c 
c 




pop 


es 




ED8D 


E8 


EEAA R 




call 


f seek 


; On return, f drive has 








c 
c 
c 








; head bit or'd in. 


ED90 


8A 


56 03 




mov 


dl,byte ptr f command 


; get command 


ED93 


B4 


C5 


c 




mov 


ah,f write cmd 




ED95 


80 


FA 03 


c 




cmp 


dl,3 


; Is it a write command? 


ED98 


74 


09 


c 




je 


f rw1 


; yes 


ED9A 


B4 


4D 


c 




mov 


ah,f format cmd 




ED9C 


80 


FA 05 


c 




cmp 


dl,5 


; Is it a format command? 


ED9F 


74 


02 


c 




je 


f rw1 


; yes 


EDA1 


B4 


E6 


c 




mov 


ah,f read cmd 


; must be read or verify. 


EDA3 






c 


f rw1 








EDA3 


E8 


F6C5 R 


c 




call 


f put byte 


; send command. 


EDA6 


8A 


66 00 


c 




mov 


ah, f drive 


; has head and drive bits. 


EDA9 


E8 


F6C5 R 


c 




call 


f put byte 




EDAC 


80 


7E 03 05 


c 




cmp 


byte ptr f command, 5 


; was it a format command? 


EDBO 


74 


15 


c 




je 


f rw skip 


; yes, skip next 3 params. 


EDB2 


8A 


66 07 


c 




mov 


ah,f cyl 




EDB5 


E8 


F6C5 R 


c 




call 


f put byte 




EDB8 


8A 


66 01 


c 




mov 


ah,f head 




EDBB 


80 


E4 7F 


c 




and 


ah,07Fh 


; blow off bit 7. 


EDBE 


E8 


F6C5 R 


c 




call 


f put byte 




EDC1 


8A 


66 06 


c 




mov 


ah,f secnum 




EDC4 


E8 


F6C5 R 


c 
c 
c 




call 


f put byte 










; Get 


bytes 3,4 


,5,6 from table. 










c 
c 
c 


; If 


we are formatting then we need bytes 3,4,7 


8 from table. 


EDC7 






f rw 


skip: 






EDC7 


B9 


0004 


c 




mov 


ex, 4 
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EDCA 


BB 


0003 


EDCD 






EDCD 


E8 


F62E R 


EDDO 


8A 


EO 


EDD2 


E8 


F6C5 R 


EDD5 


43 




EDD6 


83 


FB 05 


EDD9 


75 


09 


EDDB 


80 


7E 03 05 


EDDF 


75 


03 


EDE1 


BB 


0007 


EDE4 






EDE4 


E2 


E7 


EDE6 


E8 


F652 R 


EDE9 


E8 


EDF8 R 


EDEC 






EDEC 


E9 


ECC2 R 



EDEF 



EDEF 

EDEF 

EDEF 04 

EDFO 00 

EDF1 10 

EDF2 08 

EDF3 00 

EDF4 04 

EDF5 03 

EDF6 02 

EDF7 20 

EDF8 

EDF8 

EDF8 06 

EDF9 1E 

EDFA 07 



C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



mov 



bx,3 



no. bytes per sector. 



f rw2: 



call 


f get var 


mov 


ah,al 


call 


f put byte 


inc 


bx 


cmp 


bx,5 


jne 


f rw3 


cmp 


byte ptr f command, 5 


jne 


f rw3 


mov 


bx,7 



time to check for format? 

No. 

was it a format command? 

no. 

7th parameter in table. 



f rw3: 



loop 



f rw2 



call f wait for nee 

call f get byte 

f rw ret: 

jmp f_io_ret 

f rw common endp 



get the results. 



Read the results bytes from the NEC controller (fdu_data1) 
INPUT: none 



OUTPUT: 



DESTROYS: DX, SI 



fdu datal 

f gb table 
db 
db 
db 
db 
db 
db 
db 
db 
db 

fdu datal 

f get byte 



proc 

label 

4 



10h 

8 



4 

3 

2 

20h 

endp 

proc 



byte 



record not found. 

dummy 

crc error. 

dma error. 

dummy . 

sector not found. 

write protect. 

address mark error. 

fdc error. 



push es 
push ds 
pop es 
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EDFB 


BF 0042 R 


C 




mov 


di, off set nee status 


; ES:DI is now ready for stosb. 


EDFE 


8B F7 


C 




mov 


si,di 


offset of nee status in SI. 


EEOO 


B9 0007 


C 




mov 


ex ,7 


maximum no. of bytes. 


EE03 




C 


f gb loop: 






EE03 


E8 F63B R 


C 
C 




call 


f nee rdy 


Returns MSR byte in AL. 
will not return if error. 


EE06 


A8 10 


C 




test 


al,10h 


busy bit. 


EE08 


74 3D 


C 




jz 


f gb ret 


done. 


EEOA 


A8 40 


C 




test 


al,40h 


direction bit. 


EEOC 


74 OC 


C 




jz 


f gb out 


wrong direction. 


EEOE 


42 


C 




inc 


dx 


point to nee data port (3F5h) 


EEOF 


EC 


C 




in 


al,dx 




EE10 


AA 


C 




stosb 






EE11 


51 


C 




push 


ex 


save ex % 


EE12 


B9 0002 


C 
C 




mov 


ex, 2 


need to insure atleast% 
12 microseconds between % 


EE15 




C 


wasteg: 




this out and next in done% 


EE15 


E2 FE 


C 




loop 


wasteg 


by f nee rdy, so waste some time 


EE17 


59 


c 




pop 


ex 


restore ex % 


EE18 


E2 E9 


c 




loop 


f gb loop 




EE1A 




c 


f_gb_ 


OUt: 






EE1A 


80 7E 03 00 


c 




cmp 


byte ptr f command, 


was it reset command? 


EE1E 


74 27 


c 




je 


f gb ret 


yes. 


EE20 


AC 


c 




lodsb 




get STO in AL. 


EE21 


A8 20 


c 




test 


al,20h 


seek end? 


EE23 


75 22 


c 




jnz 


f gb ret 


yes. 


EE25 


A8 CO 


c 




test 


al.OCOh 




EE27 


74 1A 


c 
c 
c 




jz 


fjbjmp 




EE29 


C6 06 0041 R 20 




mov 


diskette status, fdc error 




EE2E 


AC 


c 




lodsb 




get ST1 in AL. 


EE2F 


B9 0008 


c 




mov 


ex, 8 




EE32 


33 DB 


c 




xor 


bx,bx 




EE34 




c 


f gb loopl: 






EE34 


DO CO 


c 




rol 


al,1 




EE36 


72 03 


c 




jc 


f gb decode 




EE38 


43 


c 




inc 


bx 




EE39 


E2 F9 


c 




loop 


f gb loopl 




EE3B 




c 


f_gb_ 


decode: 






EE3B 


2E: 8A 87 EDEF R 


c 




mov 


al,cs.-f gb table[bx] 




EE40 


A2 0041 R 


c 




mov 


diskette status, al 




EE43 




c 


fjbjmp : 






EE43 


07 


c 




pop 


es 




EE44 


E9 ECC2 R 


c 




jmp 


f io ret 




EE47 




c 


fjb_ 


ret: 






EE47 


07 


c 




pop 


es 




EE48 


C3 


c 
c 
c 
c 
c 
c 
c 




ret 






EE49 




f get byte 


endp 








; 


Test for boundary crossing case then program the 






c 
c 




DMA controller (f set dma). 
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C ; 


INPUT: 


AL 


mode 


byte 








C ; 
C ; 
C ; 
C ; 
C ; 
C ; 
p 




ES 


segment of user 


buffer. 






OUTPUT 














DESTROYS: AX, BX, 


ex, 


DX 




EE49 




u , ; , , , 

c 

C f set 

C 

C 


dma 


proc near 








EE49 


C6 06 0041 R 09 


mov 


diskette status 


,dma 


seg error 




EE4E 


E6 OB 


C 


out 


dma mode,al 






; send mode byte. 


EE50 


8B 5E 04 


C 


mov 


bx,word ptr f bufoff 




; offset of user buffer. 


EE53 


8C CO 


C 


mov 


ax,es 






; offset of user buffer. 


EE55 


B1 04 


c 


mov 


cl,4 






; shift count 


EE57 


D3 CO 


c 


rol 


ax,cl 






; move high nib around. 


EE59 


8A E8 


c 


mov 


ch,al 






; save high nib. 


EE5B 


80 E5 OF 


c 


and 


ch,0Fh 






; isolate high nib 


EE5E 


24 F0 


c 


and 


al.OFOh 








EE60 


03 D8 


c 


add 


bx,ax 






; 20 bit calculation. 


EE62 


73 02 


c 


jnc 


f sd1 








EE64 


FE C5 


c 


inc 


ch 






; high nib 


EE66 




C f S(J1: 












EE66 


8A C5 


c 


mov 


al,ch 








EE68 


E6 81 


c 


out 


dma segm 2,al 






; high nib. to latch 


EE6A 


BO 06 


c 


mov 


al,6 








EE6C 


E6 OA 


c 


out 


dma mask bit,al 






disable channel 2. 


EE6E 


FA 


c 


cli 








rsc/drb disable interrupt % 


EE6F 


E6 OC 


c 


out 


dma ff clr,al 






set to known state. % 


EE71 


8A C3 


c 


mov 


al,bl ~ 








EE73 


E6 04 


c 


out 


dma addr 2,al 






low byte of address. 


EE75 


8A C7 


c 


mov 


al.bh 








EE77 


E6 04 


c 


out 


dma addr 2,al 






high byte of address. 


EE79 


FB 


c 


sti 








enable interrupts rsc/drb % 


EE7A 


8B D3 


c 


mov 


dx,bx 






save buffer offset. 


EE7C 


BB 0003 


c 


mov 


bx,3 






bytes/sector param 


EE7F 


E8 F62E R 


c 


call 


f get var 






get param from table 


EE82 


8A C8 


c 


mov 


cl.al" 






save for shift count 


EE84 


8A 66 02 


c 


mov 


ah,f numsecs 






get ^sectors. 


EE87 


32 CO 


c 


xor 


al.al 






AX = ^sectors x 256 


EE89 


D1 E8 


c 


shr 


ax,1 






AX = #sectors x 128 


EE8B 


D3 EO 


c 


shl 


ax.cl 






multiply by bytes/sector. 


EE8D 


48 


c 


dec 


ax 






DMAC counts zero. 


EE8E 


03 DO 


c 


add 


dx,ax 






add count to offset 


EE90 


73 03 


c 


jnc 


f sd2 








EE92 


E9 ECC2 R 


c 


jmp 


f io ret 






exit boundary crossing. 


EE95 




C f Sd2: 












EE95 


FA 


c 


cli 








rsc/drb disable interrupt % 


EE96 


E6 OC 


c 


out 


dma ff clr.al 






set to known state. % 


EE98 


90 


c 


nop 








no back to back i/o % 


EE99 


E6 05 


c 


out 


dma count 2,al 






low byte of count. 


EE9B 


8A C4 


c 


mov 


al.ah 








EE9D 


E6 05 


c 


out 


dma count 2,al 




; 


high byte of count. 


EE9F 


FB 


c 


sti 








enable interrupt rsc/drb% 
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EEAO 
EEA2 
EEA4 
EEA9 
EEA9 
EEAA 



BO 02 
E6 0A 
C6 06 0041 R 00 

C3 



EEAA 



EEAA 


8A 4E 00 


EEAD 


BO. 01 


EEAF 


D2 EO 


EEB1 


84 06 003E R 


EEB5 


75 35 


EEB7 


08 06 003E R 



EEBB 


B9 


0002 


EEBE 






EEBE 


B4 


07 


EECO 


51 




EEC1 


E8 


F6C5 R 


EEC4 


8A 


66 00 


EEC7 


E8 


F6C5 R 


EECA 


E8 


F686 R 


EECD 


59 




EECE 


E8 


F603 R 



EED1 F6 06 0042 R CO 

EED6 74 OF 

EED8 E2 E4 

EEDA C6 87 0094 R FF 

EEDF C6 06 0041 R 40 

EEE4 E9 ECC2 R 

EEE7 

EEE7 C6 87 0094 R 00 

EEEC 



mov 
out 
mov 

f sd ret: 
ret 

f set dma 



al,2 

dma mask_bit,al 

diskette status, 



endp 



enable channel 2 



Seek (f seek) 

INPUT: 

OUTPUT: 
DESTROYS: 



f seek proc near 



mov cl,f drive 

mov al,1 

shl al.cl 

test seek status, al 

jnz f_s1 

or seek status, al 

; Two recalibrate commands required in the case 

mov ex, 2 
f s_recal: 

mov ah,f recal_cmd 

push ex 

call f put_byte 

mov ah,f_drive 

call f_put_byte 

call f_sis 

pop ex 

; possibly test bit 4 as well (equipment check, 

call f_getdrv 

test nee status, OCOh 

jz f_s2 

loop f s_recal 

mov cur_cyl[bx],Offh 

mov diskette_status,seek_error 

jmp f io ret 



; get drive# as shift count. 

; mask for recal. 

; no recal. required. 

; set the corresponding bit. 

of 96 TPI drives. 

; loop count for 96 TPI 

; recal. command 
; save it. 

drive -bit. 

end of command phase. 
Sense Interrupt Status 
restore it. 

.track not reached) 
; current drive 

; equipment OK so restore. 

; error so set cur_cyl to a 
; wacky value 



f_S2: 
f S1: 



mov cur cyl[bx],0 



recal 'd to cylinder 
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EEEC 


E8 


F603 R 


EEEF 


8A 


46 01 


EEF2 


24 


01 


EEF4 


DO 


EO 


EEF6 


DO 


EO 


EEF8 


OA 


46 00 


EEFB 


88 


46 00 


EEFE 


8A 


87 0094 R 


EF02 


8A 


66 07 


EF05 


F6 


46 01 80 


EF09 


74 


02 


EFOB 


DO 


E4 


EFOD 






EFOD 


88 


A7 0094 R 


EF11 


3A 


C4 


EF13 


74 


36 


EF15 


B4 


OF 


EF17 


E8 


F6C5 R 


EF1A 


8A 


66 00 


EF1D 


E8 


F6C5 R 


EF20 


8A 


66 07 


EF23 


F6 


46 01 80 


EF27 


74 


02 


EF29 


DO 


E4 


EF2B 






EF2B 


E8 


F6C5 R 


EF2E 


E8 


F686 R 



EF31 F6 06 0042 R CO 



EF36 


75 13 


EF38 


BB 0009 


EF3B 


E8 F62E R 


EF3E 


OA CO 


EF40 


74 09 


EF42 


8A C8 


EF44 


32 ED 


EF46 




EF46 


E8 EF4C R 


EF49 


E2 FB 


EF4B 




EF4B 


C3 



EF4C 



call 

mov 

and 

shl 

shl 

or 

mov 

mov 

mov 

test 

jz 
shl 
no_dbl_step : 
mov 
cmp 
je 

mov 
call 



f getdrv 

al,f head 

al,1 

al,1 

al,1 

al,f drive 

f drive, al 

al,cur cyl[bx] 

ah,f cyl 

byte ptr f_head,80h 

no_dbl_step 

ah,1 

cur_cyl[bx],ah 

al,ah 

f s ret 

ah,f seek cmd 
f put byte 



prepare second byte of seek command, 

mov ah,f drive 

call f put byte 

mov ah,f cyl 

test byte ptr f head,80h 

jz f cont 

shl ah,1 

call f_put_byte 

call f_sis 

test nee status, OCOh 



f cont: 



jnz 

mov 

call 

or 

jz 

mov 

xor 

f head_settle : 
call 
loop 

f s ret: 

ret 

f seek endp 



f s ret 

bx,9 

f_get_var 

al,al 

f s ret 

cl.al 

ch,ch 

f wait one ms 
f head settle 



this code moved %%%V/» 
blow off high 7 bits, 
move head to bit 2. 

combine drive bit with head 

and save it. 

get cur cyl value in al% 

desired cylinder #% 

test 80 track bit. 

see if double step is 

necessary 



how do they compare?% 

if they were equal don't seek% 



test 80 track bit. 

cyl x 2 

end of seek command. 
Sense Interrupt Status 

test for seek end. 
head settle parameter. 



head settle = 0. 

use settle parm. al loop index 



One millisecond delay loop (approximately) 

The CALL is 7 clocks. 

The callers LOOP statement is 8 clocks. 

No flags affected. 
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C 
C 












EF4C 






C 


f wait one ms proc near 


EF4C 


51 




C 


push ex 


; 3 clocks 








C 


; mov ex, 374 


; 2 clocks 


EF4D 


B9 02E4 


C 


inov ex ,740 


; 2 ClOCkS 


EF50 


E2 


FE 


C 


w one: loop w one 


; (8 x CX) clocks 


EF52 


59 




C 


pop ex 


■ 5 clocks 


EF53 


C3 




C 


ret 


11+ clocks 


EF54 






C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 

c 
c 
c 


f wait one ms endp 








include fdu2.asm 








; INPUT: none 








; OUTPUT: MSB of seek status is set if NEC interrupts. 








; DESTROYS: nothing 


EF57 






ORG 0EF57h 


EF57 






fd int proc near 


EF57 


FB 




c 
c 


sti ; enable interrupts 


EF58 


50 




c 


push ax 


EF59 


1E 




c 


push ds 


EF5A 


BO 


66 


c 


mov al,pic seoi 6 


specific end of interupt 


EF5C 


E6 


20 


c 


out pic 0,al ; 


send to 8259 


EF5E 


2E: 


8E 1E E538 R 


c 


mov ds,word ptr cs:[set ds word] ; 


set DS to segment 40h 


EF63 


80 


0E 003E R 80 


c 


or seek status, 80h ; 


interupt indicator 


EF68 


1F 




c 


pop ds 


EF69 


58 




c 


pop ax 


EF6A 


CF 




c 


iret 


EF6B 






c 
c 
c 
c 
c 
c 
c 
c 


fd int endp 








Check Valid (f check valid) 








This routine sets the starting diskstate. If the last operation% 








c 


passed (was ESTABlished), hte state is held. Otherwise, the % 








c 
c 
c 


default state indicated by the motherboard switches is used% 








Drive 1:% 








c 
c 
c 


Bit of sys conf b port: = 40 trk drive, 1 = 80 trk drive 








Drive 0:% 








c 
c 


Bit 1 of sys conf b port: = 40 trk drive, 1 = 80 trk drive% 
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EF6B 

EF6B 
EF6C 
EF6D 
EF70 
EF75 
EF78 
EF7D 



50 

53 

E8 F603 R 

C6 87 0092 R 00 

80 F3 01 

C6 87 008E R FF 

80 F3 01 



EF80 


8A 87 0090 R 


EF84 


A8 10 


EF86 


75 12 


EF88 


E8 F5F6 R 


EF8B 


0A CO 


EF8D 


75 05 


EF8F 


B0 93 


EF91 


EB 03 90 


EF94 




EF94 


B0 15 


EF96 




EF96 


88 87 0090 R 


EF9A 




EF9A 


8A 87 0090 R 


EF9E 


A8 20 


EFAO 


75 07 


EFA2 


80 66 01 7F 


EFA6 


EB 05 90 


EFA9 




EFA9 


80 4E 01 80 



c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 



; MSB of head parameter (DH): = 40 trk media, 1 = 80 trk media% 






drive type 


I I 1 I 






I I r/w I r/w I 




media 






type 


I 1 I n/a I r/w I 


; OUTPUT: 




The MSB of the head parameter at bp+1 is set 
if the drive is 80 track and the media is 40 track. 
This is used by seek to determine if double stepping 
is necessary. 

Also, diskstat and diskstat+2 are set for the current% 
and original fdu states. % 



f check valid proc near 



push 

push 

call 

mov 

xor 

mov 

xor 

mov 

cmp 

V- 

cmp 

jae 

mov 

test 

jnz 

call 

or 

jnz 

mov 

jnp 

f_cv_hi : 

mov 

f_cv_pre2 : 
mov 

f_CV_tSt2: 

mov 
test 
jnz 
and 
jmp 
f cv double: 
or 



ax 

bx 

f getdrv 

diskstate[bx+2],0 

bl,01h 

lastrate[bx],0ffh 

bl,01h 

al,f command 

al,1 

f_cv_tst2 

al,6 

f_cv_tst2 

al,diskstate[bx] 

al,ESTAB 

f_cv_tst2 

f_drvswitch 

al,al 

f cv hi 

al,E48M48D 

f_cv_pre2 

al,E12M12D 

diskstate[bx],al 

al,diskstate[bx] 
al, DOUBLE 
f cv double 
byte ptr f_head,7fh 
f cv ret 

byte ptr f head,80h 



save working reg% 

get drive number in bl% 

clr orig state for reties% 

select unused drive%% 

use an illegal rate°/o% 

return to correct drive%% 

skip state change for some cmds% 

status cmd% 

do double step test% 

dasd cmds% 

skip state, set double step% 

hold current state% 

did it pass last cmd?% 

yes, keep same state% 

no, set for drive type% 

set flags% 

jmp for hi density% 

low density default% 

do double step test% 

high density default% 

store it% 

hold it% 

double step state?% 

yes if set% 

not needed% 



yes double step% 
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C 






EFAD 






C 1 


cv ret: 




EFAD 


E8 


F6BA R 


C 


call 


f setff 


set rate flip-flops al=state% 


EFBO 


5B 




C 


pop 


bx 


restore regs% 


EFB1 


58 




C 

C 

C 

C 

C 1 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 1 


pop 


ax 


restore regs% 


EFB2 


C3 




ret 




EFB3 






check valid 


endp 








Change- 


line status 








Routine 


records a media change. 


EFB3 






\ chngln 


proc near 


EFB3 


C6 


06 0041 R 06 


C 


mov 


diskette status, media change ; status % 


EFB8 


E9 


ECC2 R 


C 


jmp 


f io ret ; cmd over% 


EFBB 






C 1 
C 
C ] 

c 
c 

c 


F chngln 


endp 








mclude fdu3.asm 








fd parms 










c 


This is 


the set of parameters required for diskette operation. 








c 


They are pointed to by interrupt vector 1Eh (0:78h). To modify 








c 


the parameters, build another parameter block and point disk pointer 








c 
c 
c 


to it. 










;;;;;;;;;;;;;; 










c 


fdu data3 


proc 








c 
c 
c 
c 
c 


commemted out 


because DOS[ibmbios] handles parms internally% 








fd 12parms 


label byte 








db 


(f srt 96 shl 4) + f hut ; SRT + HUT% 








c 


db 


(f hit shl 1) + f ndma 


HLT + DMA mode 








c 


db 


f motor wait 


motor off delay 








c 


db 


2 


512 bytes per sector 








c 


db 


Ofh 


EOT last sector on cyl% 








c 


db 


01bh 


gap length(23h-48m12d?)% 








c 


db 


OFFh 


DTL 








c 


db 


054h 


gap length for format% 








c 


db 


0F6h 


fill byte for format 








c 


db 


20 


head settle time (ms)% 








c 
c 
c 
c 
c 
c 
c 


db 


4 


motor start time 








fdu data3 


endp 


EFC7 






ORG 


0EFC7h 


EFC7 






fdu data2 


proc 
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EFC7 

EFC7 CF 

EFC8 02 

EFC9 25 

EFCA 02 

EFCB 08 

EFCC 2A 

EFCD FF 

EFCE 50 

EFCF F6 

EFDO 19 

EFD1 04 

EFD2 

EFD2 



EFD2 



c 
c 
c 


fd parms label 


byte 






db (f srt 


48 shl 4) + f hut ; SRT + HUT 


c 




db (f hit 


shl 1) + f ndma 


HLT + DMA mode 


c 




db f motor wait 


motor off delay 


c 




db 2~ 




512 bytes per sector 


c 




db 8 




EOT last sector on cyl 


c 




db 02Ah 




gap length 


c 




db OFFh 




DTL 


c 




db 050h 




gap length for format 


c 




db 0F6h 




fill byte for format 


c 




db 25 




head settle time (ms) 


c 
c 
c 
c 
c 




db 4 




motor start time 


fdu data2 endp 




:ode 


ends 






.LIST 




; number 4 start 


c 
c 
c 
c 
c 
c 
c 
c 
c 

C ( 


include prt.asm 






Filename: 


prt.src 




This module includes INT 17h. 


:ode 


segment public 


'ROM' 


c 
c 
c 
c 
c 
c 




assume cs:Code 


, ds: nothing, es : nothing, ss : nothing 




INT 17h — Printer Software Interrupt Request Routine 




Input: ah = 


print character 


c 




al = 


character to print 


c 




dx = 


printer port number (0,1,2,3) 


c 




Output: ah = 


status of printer: bit #0 set if time out 


c 

Q 




al = 


character to print (preserved) 


c 




Input: ah = 1 


initialize the printer port 


c 




dx = 


printer port number (0,1,2,3) 


c 




Output: ah = 


status of printer 


C ; 
C ; 
C ; 




al 


preserved 




Input: ah = 2 


read the printer status 


C ; 




dx = 


printer port number (0,1,2,3) 


C ; 
C ; 
C ; 




Output: ah = 


status of printer 




Trash: ah = 


(ah - 2) if ah > 2 


C ; 
C ; 
C ; 




al 


preserved 




Assumes: 


prt stat x = prt data x + 1 = dx + 1 


C ; 
C ; 






prt cmd x = prt data x + 


2 = dx + 2 
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EFD2 




EFD2 




EFD2 


FB 


EFD3 


83 FA 04 


EFD6 


73 32 



EFD8 51 

EFD9 52 

EFDA 57 

EFDB 86 C4 

EFDD 1E 

EFDE 2E: 8E 1E E538 R 

EFE3 8B FA 

EFE5 33 C9 

EFE7 8A 8D 0078 R 

EFEB D1 E1 

EFED 03 FF 

EFEF 8B 95 0008 R 

EFF3 1F 



EFF4 OB D2 

EFF6 74 OD 

EFF8 33 FF 

EFFA OA CO 

EFFC 74 OD 

EFFE 42 



Printer Status Byte from prt_stat_X: 

bit #0 = time-out on printing character (p_out). 

set by software; no hardware significance. 



bits 


#1-2 = 


no signil 


Ficance (alway 


bit 


#3 = 


hardware 


I/O error. 


bit 


#4 = 


hardware 


selected. 


bit 


#5 = 


hardware 


out of paper 


bit 


#6 = 


hardware 


acknowledge. 


bit 


#7 = 


hardware 


not busy. 



"Good" Statuses are: 90h & 10h if a printer is connected. 
30h if printer is disconnected. 



ORG 



0EFD2h 



p io proc near 

assume cs:Code, 

sti 



cmp 
jae 



pop 



or 



or 
jz 

inc 



dx,4 
p nop 



ds: nothing, es : nothing, ss : nothing 

; enable interrupts 

; 4 printers allowed max 



push 


ex 


push 


dx 


push 


di 


xchg 


al.ah 


push 


ds 


mov 


ds,word 


mov 


di,dx 


xor 


ex, ex 


mov 


cl,byte 


sal 


cx,1 


add 


di,di 


mov 


dx,word 



assume cs : code, dS:data, es : nothing, ss : nothing 

; save registers 



ptr cs:[set_ds_word] 

ptr dS:[di+printer_t_out] 
ptr ds:[di+printer_addr] 



ds 



reverse al & ah 

ah saves al throughout 

save ds 

satisfy assumptions 

get port number (0-3) 

clear ch 

get printer time-out 

double it 4 faster cpu 

make word index 

get address of printer 

data port 

restore ds 



assume cs:C0de, ds : nothing, es: nothing, ss : nothing 

; is a printer there? 



dx,dx 
p_ret 

di.di 

al.al 
p out 

dx 



; clear di 

; al = 0? 

; dx = prt_data_x 

; dx = prt stat x 
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EFFF 2C 02 

F001 72 24 

F003 74 2F 

F005 86 C4 

F007 5F 

F008 5A 

F009 59 

F00A CF 



F00B 8A C4 

FOOD EE 

FOOE 42 

FOOF EC 

F010 24 F8 

F012 34 49 

F014 78 07 

F016 4F 

F017 75 F6 

F019 E2 F4 

F01B EB E8 

F01D 42 

F01E BO OD 

F020 EE 

F021 90 

F022 48 

F023 EE 

F024 4A 



p ret: 



p nop: 



p out: 



P IP: 



P Ok: 



sub al,2 

jb p_init 

je p stat 

xchg al,ah 

pop di 

pop dx 

pop ex 
iret 



al = 1 < 2? 
dx = prt stat_x 
al = 2? 
dx = prt stat_x 

reverse al & ah back 
ah saved al throughout 
restore registers 



Print Character 


to Parallel Printer Interface. 


; Input: ah = 




character to print 


; ex = 




printer time-out 


; dx = 




address of printer data port (prt data x). 


; di = 







Output: ah = 




character to print 


; al = 




status of printer: bit #0 set if time out 


; dx = 




address of printer status port (prt stat x). 


; Trash: ex & 


di 


destroyed. 


; Assumes: 




prt stat x = prt data x + 1 = dx + 1 
prt cmd x = prt data x + 2 = dx + 2 



assume cs : code, ds : nothing, es : nothing, ss : nothing 



mov 
out 

inc 



al,ah 
dx,al 

dx 



in al,dx 
and al,0F8h 
xor al,049h 



js 



p ok 



dec 


di 


jnz 


P IP 


loop 


P IP 


jmp 


short p ret 


inc 


dx 


mov 


al,0Dh 


out 


dx.al 


nop 




dec 


ax 


out 


dx,al 


dec 


dx 



get character to print 
output character 

dx = prt stat x 

get printer status 
clear bogus printer bits 
flip acknowledge & I/O err bit 
& set printer time-out bit #0 
wait for not busy bit #7 set 

inner loop counter 

inner loop 

outer loop 

return status with time-out 

dx = prt_cmd_x 

set strobe high (al = ODh) 



set strobe low (al = OCh) 
dx = prt stat x 
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F025 EB OD 



F027 BO 08 

F029 42 

F02A EE 

F02B B5 05 

F02D E2 FE 

F02F BO 0C 

F031 EE 

F032 90 

F033 4A 



F034 


EC 


F035 


24 F8 


F037 


34 48 


F039 


EB CA 



F03B 



F03B 



C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 



jmp 



short p stat 



; Initialize Parallel Printer Interface. 


; Input: ah = 


byte to return in al. 


; dx = 


address of printer status port (prt stat x). 


; Output: al = 


status of printer 


; dX = 


address of printer status port (prt stat x). 


; Trash: ex = 


destroyed. 


; Assumes: 


prt stat x = prt data x + 1 = dx + 1 




prt cmd x = prt data x + 2 = dx + 2 



assume cs : code, ds: nothing, es : nothing, ss : nothing 



p init: 



mov 


al,08h 


inc 


dx 


out 


dx,al 


mov 


ch,05h 


loop 


$ 


mov 


al,0Ch 


out 


dx,al 


nop 




dec 


dx 


jmp 


short p stat 



; request init (hold line low) 
; dx = prt cmd x 



delay awhile (ex = 05??h) 



disable interrupts, manual If 
(init done - line set high) 



dx = prt_stat x 
fall through 



; Read Status of 


Parallel Printer Interface. 


; Input: dx = 


address of printer status port (prt stat x). 


; Output: al = 


status of printer 


dx = 


address of printer status port (prt stat x). 


Assumes: 


prt stat x = prt data x + 1 = dx + 1 



assume cs : code, ds : nothing, es : nothing, ss : nothing 



p_stat: in al,dx 

and al,0F8h 

xor al,048h 

jmp short p ret 



get printer status 
clear bogus printer bits 
flip acknowledge & I/O err bit 
exit 



p_io 

code 
include 



endp 

ends 
vid.asm 

NAME 



DATE 



ACTION 
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= 00E0 
= 0162 

F03B 



F045 



F045 



F045 


FOFC R 


F047 


F1E9 R 


F049 


F1F7 R 


F04B 


F215 R 


F04D 


F5A8 R 


F04F 


F22C R 


F051 


F27F R 


F053 


F390 R 


F055 


F3B1 R 


F057 


F3DB R 


F059 


F414 R 


F05B 


F44F R 


F05D 


D56A R 


F05F 


D550 R 


F061 


F47B R 


F063 


F504 R 



F065 



C 
C 
C 
C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



mikef 


10/25/84 


mikef 


02/13/85 


joe 


03/13/85 


joe 


03/25/85 


joe 


04/04/85 


joe 


04/18/85 


joe 


06/11/85 


joe 


06/13/85 



Added code in scroll up to enable video. 

Moved grf light pen from graph. src to here. 

Changed ORG to ORG 

Replaced scroll code in text mode for speed 

Fixed Mode 7 scroll to use ds 

Added code to check for dip switch indication 

of non-Olivetti video controller board 

Revived code to wait for Hercules card during 

slow scrolling code. 

Changed fourth parameter in 6845 parameter table 

from 06h to OAh, for v_md_40 and v_md_graph. 

Removed extraneous parameter table stuff. 



Filename: vid.src 

This module includes INT 10h, the display routines. 



These constants must be defined (amount to scroll/clear during vert retrace): 
; V KSCR0LL1 equ 224 ; 314 chars to move during vert, retrace 



VKSCR0LL1 

V KSCR0LL2 



equ 
equ 



224 
354 



324 chars to move during vert, retrace 
354 chars to move during vert, retrace 



code 



segment public 'ROM' 

assume cs:COde, ds : nothing, es : nothing, ss : nothing 



ROM data 



ORG 



0F045h 



v datal proc near 



v tbl 



dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 



v datal endp 



v set mode 
v cursjtype 
v curs_pos 
v r curs_pos 
grf light pen 
v_page 
v scrl_up 
v scrl dn 
v rac 
v wac 
v wc 
v_col 

grf write_dot 
grf read_dot 
v terminal 
v stat 



ah = OOh 
ah = 01h 
ah = 02h 
ah = 03h 
ah = 04h 
ah = 05h 
ah = 06h 
ah = 07h 
ah = 08h 
ah = 09h 
ah = OAh 
ah = OBh 
ah = OCh 
ah = ODh 
ah = OEh 
ah = OFh 



(see graph. src) 



(see graph. src) 
(see graph. src) 
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C 

c 










C 
C 
C 


; INT 10h — Video Interrupt Service Routine. 






-- Set CPU flags. 






C 




-- Segment registers properly loaded. 






C 




— CALLs routines with: — al, bx, ex, dx intact 






C 




— ah = v mode 






C 




— si = 2 * (function that was in ah) 






C 




— di = bits #4 & 5 of switch bits 






C 
C 
C 

Q 




— bp = value of ax to be returned 








Input: ah = function number (OOh <= ah <= OFh) 






C 

C ; 
C 
C 
C 

C v 

c 
c 

C ; 
C ; 
C ; 




Trash: None, (bp, si, di, ds, & es if ROM stack) 


F065 






ORG 0F065h 


F065 




io 


proc near 








assume cs : code, ds: nothing, es: nothing, ss.- nothing 






Osmerge code relies on the fact that v io is org'ed at 0f065h and 






C ; 


that 


the first instruction is " sti" . It is also important that 






C ; 


this 


is the ONLY sti that is incurred in the path to/in the cursor 






C ; 


postioning code. Osmerge contains an elegant hack that speeds up 






C ; 


video access if the stated condition is met. For further information 






C ; 
C ; 
Q 


see r 


nemo " OSMERGE Constraints on ROM BIOS" . 


F065 


FB 


c 
c 




sti ; enable interrupts 


F066 


80 FC OF 


c 




emp ah, OFh ; input out of range? 


F069 


11 38 


c 
c 
c 




ja v nop 


F06B 


06 




push es ; save 'trashable' registers 


F06C 


1E 


c 




push ds 


F06D 


2E: 8E 1E E538 R 


c 




mov ds,word ptr cs : [set ds word] ; avoid potential stack problems 


F072 


57 


c 




push di 


F073 


56 


c 




push si 


F074 


55 


c 
c 
c 
c 




push bp 








assume cs:COde, ds : data, es: nothing, ss : nothing 


F075 


50 


c 
c 
c 




push ax ; save ax 


F076 


8A C4 




mov al,ah ; al = function number 


F078 


02 C4 


c 




add al,ah ; * 2 


F07A 


98 


c 




cbw 


F07B 


50 


c 
c 
c 




push ax ; save for CALL later. 


^£Q7C. 


BF B800 




mov di,para graph ; get screen segment .. 


F07F 


A0 0010 R 


c 




mov al,byte ptr ds : [switch bits] ; .. check switch bits .. 
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F082 


A8 


20 






C 




test 


al,20h 








F084 


74 


08 






C 




jz 


v colour 




; . . if either is 0, it's 


F086 


A8 


10 






C 




test 


al,10h 






; . . color display board 


F088 


74 


04 






C 




jz 


v colour 






F08A 


81 


C7 F800 


C 




add 


di,para 


mono-para graph 




; .. it's a monochrome board 


F08E 










C 


v colour: 










F08E 


8E 


C7 






C 
C 

c 
c 
c 




mov 


es,di 






; set es = video ram 


F090 


5F 










pop 


di 






; Get index to call table. 


F091 


58 










pop 


ax 






; restore ax 


F092 


8A 26 0049 R 


c 




mov 


ah, byte 


ptr ds:[v mode] 


get display driver mode 


F096 


8B E8 






c 




mov 


bp,ax 






; bp saves ax throughout 












c 












; (return ah = v mode 












c 
c 

c 












; unless specific ret. value) 


F098 


FC 










eld 








; String ops move UP, mostly. 


F099 


2E 


FF 95 F045 R 


c 
c 
c 




call 


CS:[di+ 


(offset v tbl)] 




; perform display function 


F09E 


5D 










pop 


bp 






; restore 'trashed' registers 


F09F 


5E 








c 




pop 


si 






; (destroyed if ROM stack) 


FOAO 


5F 








c 




pop 


di 








F0A1 


1F 








c 




pop 


ds 








F0A2 


07 








c 




pop 


es 








F0A3 










c 


v nop 


): 










F0A3 


CF 








c 
c 
c 
c 




iret 










F0A4 










v io 


endp 










F0A4 










c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 




ORG 


0F0A4h 








F0A4 










v data2 proc 


near 








F0A4 










v parms label 


byte 


















; 6845 Parameters except register 3h (Horizontal Synch Width). 


F0A4 


38 


28 


2D 


OA 


v md 


40 


db 


38h,28h,2Dh,0Ah 


text 


40 x 25 


F0A8 


1F 


06 


19 


1C 


€ 






db 


1Fh,06h,19h,1Ch 


mode 


-> monochrome 


FOAC 


02 


07 


06 


07 


c 






db 


02h,07h,06h,07h 


mode 


1 -> color 


FOBO 


00 00 


00 


00 


c 
c 
c 






db 


00h,00h,00h,00h 






F0B4 


71 


50 


5A 


OC 


v md 


80 


db 


71h,50h,5Ah,0Ch 


text 


80 x 25 


F0B8 


1F 


06 


19 


1C 


c 






db 


1Fh,06h,19h,1Ch 


mode 


2 -> monochrome 


FOBC 


02 


07 


06 


07 


c 






db 


02h,07h,06h,07h 


mode 


3 -> color 


FOCO 


00 


00 


00 


00 


c 
c 
c 






db 


00h,00h,00h,00h 






F0C4 


38 


28 


2D 


OA 


v md 


graph 


db 


38h,28h,2Dh,0Ah 


grapf 


lies 


F0C8 


7F 


06 


64 


70 


c 






db 


7Fh,06h,64h,70h 


mode 


4 -> 320 x 200 color 


FOCC 


02 


01 


06 


07 


c 






db 


02h,01h,06h,07h 


mode 


5 -> 320 x 200 monochrome 


FODO 


00 


00 


00 


00 


c 
c 
c 






db 


00h,00h,00h,00h 


mode 


6 -> 640 x 200 monochrome 


F0D4 


61 


50 


52 


OF 


v md 


mono 


db 


61h,50h,52h,0Fh 


monochrome card 80 x 25 
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F0D8 


19 06 19 19 


C 






db 


19h,06h,19h 


19h ; mode 7 -> monochrome card 


FODC 


02 OD OB OC 


C 






db 


02h,0Dh,0Bh 


OCh ; 


FOEO 


00 00 00 00 


C 
C 
C 






db 


OOh, OOh, OOh 


OOh 


F0E4 


0800 


v md 


len 


dw 


2048 




; 40x25 modes & 1 


F0E6 


1000 


C 






dw 


4096 






80x25 modes 2 & 3 


F0E8 


4000 


C 






dw 


16384 






graphics modes 4 & 5 


FOEA 


4000 


C 






dw 


16384 






mode 6 






c 
c 
c 


; onl^ 


in 1050 


dw 


32768 






modes 64 & 72 


FOEC 


28 


v md 


wid 


db 


40 




; -> text 40x 25 monochrome 


FOED 


28 


c 






db 


40 






1 -> text 40x 25 color 


FOEE 


50 


c 






db 


80 






2 -> text 80x 25 monochrome 


FOEF 


50 


c 






db 


80 






3 -> text 80x 25 color 


FOFO 


28 


c 






db 


40 






4 -> graphics 320x200 color 


F0F1 


28 


c 






db 


40 






5 -> graphics 320x200 monochrome 


F0F2 


50 


c 






db 


80 






6 -> graphics 640x200 monochrome 


F0F3 


50 


c 






db 


80 






7 -> text 80x 25 monochrome card 


F0F4 


2C 


c 


v md 


enable 


db 


2Ch 






-> text 40x 25 monochrome 


F0F5 


28 


c 






db 


28h 






1 -> text 40x 25 color 


F0F6 


2D 


c 






db 


2Dh 






2 -> text 80x 25 monochrome 


F0F7 


29 


c 






db 


29h 






3 -> text 80x 25 color 


F0F8 


2A 


c 






db 


2Ah 






4 -> graphics 320x200 color 


F0F9 


2E 


c 






db 


2Eh 






5 -> graphics 320x200 monochrome 


FOFA 


1E 


c 






db 


1Eh 






6 -> graphics 640x200 monochrome 


FOFB 


29 


c 
c 
c 
c 
c 
c 
c 
c 
c 
c 






db 


29h 






7 -> text 80x 25 monochrome card 


FOFC 




\/ data2 endp 
















Set Mode & Clear Screen 


ah = OOh 








Input: 


al 


= mode 


= 


-> text 40x 25 monochrome 






c 










= 1 


-> text 40x 25 color 






c 










= 2 


-> text 80x 25 monochrome 






c 










= 3 


-> text 80x 25 color 






c 










= 4 


-> graphics 320x200 color 






c 










= 5 


-> graphics 320x200 monochrome 






c 










= 6 


-> graphics 640x200 monochrome 






c 










= 7 


-> text 80x 25 monochrome card 






c 










= 64 


-> graphics 640x400 monochrome 






c 
c 
c 










= 72 


-> graphics 640x400 monochrome tinytext 








Output: 


ah 


= OOh 










c 
c 
c 






al 


= v colorpal 










Assume: 


contents of v 


base6845 = pointer register (3D4h) 






c 






(contents of v 


base6845)+1 = data register (3D5h) 






c 






(contents of v 


base6845)+4 = mode control register (3D8h) 






c , 






(contents of v 


base6845)+5 = overscan register (3D9h) 






C ; 






(contents of v 


base6845)+6 = status register (3DAh) 






C ; 

C ; 






(contents of v 


base6845)+10 = mode control register #2 (3DEh) 
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FOFC 



FOFC 52 
FOFD 51 



FOFE 32 E4 

F100 BA 03D4 

F103 F6 06 0010 R 10 

F108 74 0D 

F10A F6 06 0010 R 20 

F10F 74 06 

F111 B8 0107 

F114 83 C2 E0 

F117 



F117 


A2 0049 R 


F11A 


89 16 0063 R 


F11E 


86 EO 


F120 


83 C2 04 


F123 


EE 


F124 


83 EA 04 


F127 


8A C4 



F129 1E 



F12A 33 F6 
F12C 8E DE 
F12E C5 36 0074 R 



F132 B9 0010 
F135 3C 02 
F137 72 OE 



C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



Trash: si & di destroyed. 



v set mode proc near 

assume csrcode, ds:data, es:V ram, ss : nothing 



push dx 
push ex 

Get Color/Monochrome dependent stuff. 



xor 
mov 



ah, ah 

dx, color pointer 



test byte ptr ds : [switch bits],10h 

j'z v_set_mode_color 

test byte ptr ds : [switch bits],20h 

jz v set mode color 



save dx 
save ex 



AH = mode Ctrl., color board 
color 6845 pointer register. 

monochrome board? 

if not, skip monochrome stuff. 



mov 



It's a monochrome board, so.. 
(AH,AL) = (overwrite mode 
for monochrome, mono, mode) 
dx,v pointer-color pointer; monochrome pointer register. 



ax,0107h 
add 

v set mode color: 
; Save CRT Mode & 6845 address, and reset display monitor with mode control 



mov 


byte 


mov 


word 


xchg 


ah,al 


add 


dx,4 


out 


dx,al 


sub 


dx,4 


mov 


al,ah 



byte ptr ds : [v mode],al ; save mode. 



word ptr dS:[v base6845],dx 



Get pointer to display parameters, 
push ds 



save 6845 pointer register. 

AH=mode, AL=mode Ctrl. 

get 6845 mode control register 

reset display 

restore 6845 address. 

restore mode in al 



save ds = data seg 



assume cs:Code, ds : absO, es : v ram, ss : nothing 



xor si, si 
mov ds,si 
Ids si,dword ptr ds : [int1Dlocn] 



; satisfy assumptions 

; display parameter pointer 



; dS:Si in effect points to cs:V parms. 

assume cs : code, ds : code, es:V_ram, ss : nothing 
; Determine which set of parameters to use from mode. 



mov 


ex, 16 


emp 


al,2 


jb 


v set mode lp 



count of parameters 
40x25 mode? (0 & 1?) 
if so, we're done 
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F139 


03 F1 


F13B 


3C 04 


F13D 


72 08 


F13F 


03 F1 


F141 


3C 07 


F143 


75 02 


F145 


03 F1 



F147 

F147 BO 10 

F149 2A C1 

F14B EE 

F14C 42 

F14D AC 

F14E EE 

F14F 4A 

F150 E2 F5 



F152 1F 

F153 8A C4 

F155 32 E4 

F157 8B FO 



F159 


B9 2000 


F15C 


3C 04 


F15E 


72 OE 


F160 


3C 07 


F162 


74 08 


F164 


72 02 


F166 


D1 E1 


F168 




F168 


33 CO 


F16A 


EB 05 


F16C 




F16C 


B5 08 


F16E 




F16E 


B8 0720 


F171 




F171 


33 FF 


F173 


F3/ AB 



C 


add 


si, ex 


C 


cmp 


al,4 


C 


jb 


v set mode lp 


C 


add 


si, ex 


C 


cmp 


al,7 


C 


jne 


v set mode lp 


C 


add 


si, ex 


C 






C 


; Loop through 


6845 initializatic 


C 






C 


v set mode lp : 




C 






C 


mov 


al,16 


C 






C 


sub 


al.cl 


C 


out 


dx,al 


C 


inc 


dx 


C 


lodsb 




C 


out 


dx,al 


C 


dec 


dx 


C 


loop 


v set mode lp 


C 






C 






C 




assume cs : code, 


C 






C 


pop 


ds 


c 






c 


mov 


al,ah 


c 


xor 


ah , ah 


c 


mov 


si, ax 


c 






c 


; Clear the screen. 


c 






c 


mov 


cx,2000h 


c 






c 


cmp 


al,4 


c 


jb 


v md clr 8k 


c 


cmp 


al,7 


c 


je 


v md clr 2k 


c 


jb 


v md clr graphics 


c 


shl 


cx,1 


c 


v md clr graphics: 


c 


xor 


ax, ax 


c 


jmp 


short v md clr 


c 






c 


v md clr 2k: 




c 


mov 


ch,08h 


c 


v md clr 8k: 




c 


mov 


ax,(7*100h)+(' ') 


c 


v md clr : 




c 


xor 


di,di 


c 


rep 


stosw 


c 






c 


; Set mode control register #2 


c 







next set of parameters 

80x25 mode? (2 & 3?) 

if so, we're done 

next set of parameters 

graphics mode? (4,5,6,64,72?) 

if so, we're done 

else, monochrome card (7) 



get 6845 register number = 
= (16 - cl) (unscrambled) 

output to register port 

point to 6845 data register 

get parm value: al gets dS:Si 

output to data port 

point back to pointer register 

next register 

dx = pointer register 



restore ds = data seg 

save mode in ah & al 

ax = mode 

si = mode hence. . . 



assume 8k words to clear 

40x25 or 80x25 text modes 0-3? 
if so, clear 8k words, 
monochrome card mode 7? 
if so, clear 2k words, 
graphics mode 4-6 clear 8k wds 
mode 64 & 72 clear 16k wds 

graphics mode 

clear screen with zeroes 



ex = 0800h 



clear with attribute & space 



es:di gets ax 
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F175 83 C2 06 

F178 EC 

F179 24 10 

F17B DO E0 

F17D DO E0 



F17F 83 FE 40 

F182 72 04 

F184 40 

F185 BE 0006 



F188 

F188 83 C2 04 

F18B EE 



F18C 2E: 8A 84 F0F4 R 

F191 A2 0065 R 

F194 83 EA 06 

F197 EE 



F198 33 CO 

F19A 2E: 8A 84 FOEC R 

F19F A3 004A R 

F1A2 81 E6 000E 

F1A6 2E: 8B 84 F0E4 R 

F1AB A3 004C R 



F1AE 


BO 


30 


F1B0 


8A 


26 0049 R 


F1B4 


80 


FC 06 


F1B7 


72 


OD 


F1B9 


74 


09 


F1BB 


80 


FC 40 


F1BE 


72 


06 


F1C0 


D1 


26 004C R 


F1C4 







Handle underline on shades-of-gray monitor. 



add 


dx,6 


in 


al,dx 


and 


al,010h 


shl 


al,1 


shl 


al,1 



Handle double scan line modes 64 & 72. 



cmp 
jb 
inc 
mov 



v md dbl: 



add 
out 



si, 64 
v md_dbl 
ax 
si, 6 



dx,4 
dx,al 



; Enable display monitor with mode control. 

mov al,byte ptr cs : [si+v md_enable] 
mov byte ptr ds : [v_3x8],al 

sub dx,6 
out dx,al 

; Determine width & length of screen. 



xor 


ax, ax 


mov 


al,byte ptr cs : [si+v md wid] 


mov 


word ptr ds : [v width], ax 


and 


si,0Eh 


mov 


ax, word ptr cs : [si+v md len] 


mov 


word ptr ds : [v height], ax 



Set up overscan register & v colorpal. 



dx = pointer register 
get 6845 status register 
get CRT status 
isolate color/shades bit #4 
move it to underline bit #6 



dx = 6845 status register 
modes through 7? 
if so, single scan line mode 
else mode 64 or 72, set bit #0 
modes 64 & 72 look like mode 6 
from now on 

double scan line mode. 

get mode control register #2 



save the value for later 
dx = mode control register #2 
get 6845 mode control register 
enable display 



clear ah 



make word index divided by 2 



mov 
mov 
cmp 
jb 

je 



cmp 
jb 



al,030h 



v colorpal for modes 0-5 & 7 



ah, byte ptr ds:[v mode] ; retrieve v_mode 



ah, 6 
v ovr_ok 

v ovr not ok 



ah, 64 
v ovr ok 



shl 
v ovr not ok: 



word ptr dS:[v_height],1 



modes 0-5 ? 
if so, we're ok. 

640x200. graphics mode 6 ? 
if so, change v_colorpal 

640x400 graphics mode 64, 72 ? 
if not, we're ok. 

if so we set v height wrong, 
double vjieight from 16k to 32k 
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F1C4 BO 3F 

F1C6 

F1C6 A2 0066 R 

F1C9 42 

F1CA EE 



F1CB 1E 

F1CC 07 

F1CD BF 0050 R 

F1D0 B9 0008 

F1D3 33 CO 

F1D5 F3/ AB 



F1D7 A3 004E R 
F1DA A2 0062 R 
F1DD C7 06 0060 R 0607 



F1E3 A0 0066 R 

F1E6 59 

F1E7 5A 

F1E8 C3 

F1E9 



F1E9 

F1E9 89 OE 0060 R 

F1ED 8B F9 

F1EF B4 OA 

F1F1 E8 F262 R 



C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



mov 



al,03Fh 



v ovr ok: 



mov byte ptr ds : [v_colorpal] ,al 
inc dx 
out dx,al 



v_colorpal for modes 6,64,72 

dx = 6845 mode control register 
save the value for later 
get 6845 overscan register 



; Clear all cursor positions. 

assume cs:Code, dsrdata, es:data, ss : nothing 

push ds ; set es = firmware data area 

pop es 

mov di,ds: (offset v curpos) ; get address [defined by DB] 

mov ex, 8 

xor ax, ax ; ax = 

rep stosw ; es : di gets ax = 

; Clear other firmware data variables (ax = 0). 



mov 


word ptr ds 


mov 


byte ptr ds 


mov 


word ptr ds 



[v top], ax ; set starting offset to 

[v apage],al ; set current active page to 

[v cursize],0607h ; set cursor mode 



; Clean up. 

mov 
pop 
pop 
ret 

v set mode 



al,byte ptr ds : [v colorpal] 

ex 

dx 



endp 



restore ex 
restore dx 



Set Cursor Value ah = 01h 

Input: ch = bits #0-4 = starting line for cursor 

cl = bits #0-4 = ending line for cursor 

Output: ah = 10 

al = cl 

Trash: si & di destroyed, (si = dx ; di = ex) 



v curs type proc near 

assume cs:Code, ds:data, es:V ram, ss : nothing 



mov word ptr ds:[v cursize],cx 

mov di,cx 

mov ah, 10 

call v 6845 



save the cursor value 

di saves ex 

6845 cursor set register = 10 
set cursor; ah 6845 gets ex 
si = dx destroyed 
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F1F4 8A C1 
F1F6 C3 
F1F7 



F1F7 



F1F7 8B F9 

F1F9 8A CF 

F1FB 8B F1 

F1FD 81 E6 0007 

F201 03 F6 

F203 89 94 0050 R 

F207 3A 3E 0062 R 

F20B 74 03 

F20D 8B CF 

F20F C3 

F210 

F210 8B C2 

F212 EB 42 90 



F215 



C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



mov al,cl 
ret 
v_curs_type endp 



ah = preserved =10; al = cl 
di restores ex 
restore al with original cl 



; Set Cursor Position 


ah = 


02h 




; Input: 


bh 


= page number 


(0-7) 








(dh,dl) 


= (row, col) of 


current cursor from (0,0) 


; Output: 


if bh = 


v apage, 


ah = 


14 










al = 


low byte of 


cursor position 




else, 




ah = 
al = 


v mode 
preserved 




Trash: 


si & di 


destroyed, (si 


= dx, 


di = ex) 





v_curs_pos proc near 

assume cs:Code, ds:data, es:V ram, ss : nothing 
mov di,cx ; save 



mov 


cl,bh 


mov 


si, ex 


and 


si, 7 


add 


si, si 



mov 

emp 
je 

mov 
ret 

v set curs: 
mov 
jmp 



word ptr ds : [si+v_curpos],dx 

bh,byte ptr ds:[v_apage] 
v_set curs 

cx,di 



ax,dx 

v set cur pos 



mask to 8 pages 
*2 => word index 

save the cursor position 

if active page, put the cursor 

on the screen. 

not active page, so just 

restore ex 

and exit 

active page, so set cursor., 
ax gets cursor position 
set cursor; ah 6845 gets ex 

si = dx destroyed 

ah = preserved = 14 

al = low byte of cursor posn 



v curs pos 



endp 



Read Cursor 



ah = 03h 



Input: bh = page number (0-7) 

Output: (dh,dl) = (row, col) of current cursor from (0,0) 

(ch,cl) = current cursor mode setting 

ax = dx 
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F215 



F215 8B C2 

F217 8B CB 

F219 8A DF 

F21B 81 E3 0007 

F21F D1 E3 

F221 8B 97 0050 R 

F225 8B D9 

F227 8B 0E 0060 R 

F22B C3 



F22C 



F22C 



F22C 25 0007 

F22F 8B E8 

F231 A2 0062 R 

F234 74 08 

F236 8B FA 

F238 F7 26 004C R 

F23C 8B D7 

F23E 

F23E A3 004E R 

F241 D1 F8 



F243 8B F9 



Trash: None. 



v r curs_pos proc near 

assume cs : code, ds : data, es:V ram, ss : nothing 



mov 


ax,dx 














mov 


cx,bx 












; save bx 


mov 


bl.bh 














and 


bx,07h 












; page number mod 8 


shl 


bx,1 












; page number mod 8 word index 


mov 


dx T word 


ptr 


ds 


[b> 


C+V 


curpos] 




mov 


bx,cx 












; restore bx 


mov 


ex, word 


ptr 


ds 


[v 


cursize] 




ret 

















v r curs pos endp 



Read Light Pen (see graph. sre) ah = 04h 



Set Active Display Page 



ah = 05h 



Input: al = new page number (0-7 for modes 0-1; 0-3 for 2-3) 
Output: 6845 is reset to display the new active page 

ah = 14 

al = low byte of cursor position 

Trash: bp, si & di destroyed, (si = dx, di = ex) 



v_page proc near 

assume cs:COde, ds : data, es:V ram, ss : nothing 



and 
mov 

mov 
jz 

mov 
mul 
mov 

v_page_0 : 
mov 
sar 



mov 



ax,07h 
bp,ax 

byte ptr ds : [v apage],al 
v_page_0 

di,dx 

word ptr ds: [v_height] 

dx,di 



word ptr ds : [v_top],ax 
ax,1 



di,cx 



page number mod 8 

save ax = page number mod 8 

save active page number (0-7) 
page number = 0? 

save dx 

dx : ax = (page number)*v height 

restore dx 



save starting address of page 
divide by 2 for byte count 



; save ex 
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F245 8B C8 
F247 B4 OC 
F249 E8 F262 R 



F24C 8B C5 

F24E D1 EO 

F250 8B FO 

F252 8B 84 0050 R 

F256 

F256 E8 F560 R 

F259 03 06 004E R 

F25D D1 F8 

F25F B5 0E 

F261 91 



F262 



F262 


8B F2 


F264 


E8 F273 R 


F267 


FE C4 


F269 


8A E9 


F26B 


E8 F273 R 


F26E 


8B D6 


F270 


8B CF 


F272 


C3 


F273 





c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



mov ex, ax 
mov ah, 12 
call v 6845 



mov 
shl 
mov 
mov 

v set cur pos : 

call 

add 

sar 



Now: ah 
ch 
cl 
di 



v_6845: 

mov 
call 
inc 
mov 
call 
mov 
mov 
ret 
v page endp 



ax,bp 

ax,1 

si, ax 

ax, word ptr ds : [si+v curpos] 



v_posn 

ax, word ptr ds : [v top] 

ax,1 



mov ch,14 
xchg ex, ax 



ex gets offset of active page 
6845 cursor set address = 12 
set cursor,- ah 6845 gets ex 

si = dx destroyed 

ah = preserved =12; al = cl 

di restores ex 

restore ax = page number mod 8 
page number mod 8 word index 

get page's cursor position 

(ah,al) = (row, col) cursor pos. 
di = value to return in ex 
(ah,al) -> ax offset; si trash 
add offset of active page 
divide by 2 for byte count 

6845 cursor pos register = 14 



= 6845 register selection 

= first data byte to (ah) 6845 internal register 
= second data byte to (ah+1) 6845 internal register 
= value to return in ex 



; program 6845 cursor: 

si,dx 

v out_byte 

ah 

ch,cl 

v out byte 

dx,si 

cx,di 



save dx 

output to 6845 
next 6845 register 
get the register input 
output to 6845 
restore dx value 
set up return value 



; Output 


two 


byte 


to the selected 6845 registers 


; Input: 


ah 




= 6845 register selection 




ch 




= first data byte to (ah) 6845 internal register 




cl 




= second data byte to (ah+1) 6845 internal register 




di 




= value to return in ex 


; Assume 


contents of v base6845 = pointer register 




(contents 


; of v base6845)+1 = data register 


Output 


ah 




= 6845 register selection 




al 




= second data byte 




ex 




= di 
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F273 



F273 8B 16 0063 R 

F277 8A C4 

F279 EE 

F27A 42 

F27B 8A C5 

F27D EE 

F27E C3 

F27F 



F27F 



F27F E8 F571 R 

F282 72 03 

F284 E9 D5F4 R 
F287 

F287 52 

F288 51 

F289 53 

F28A 8A D8 

F28C 8B C1 

F28E E8 F513 R 

F291 74 25 



C 
C 
C 
C 
C 
C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



v out_byte proc near 

assume csrcode, ds:data, es:V ram, ss: nothing 



mov 


dx,word ptr ds : 


[v base6845] ; 


mov 


al.ah 




out 


dx,al 




inc 


dx 




mov 


al,ch 




out 


dx,al 




ret 







get 6845 pointer register 
get the register address 
select the data register 

next register 

get second data byte 

output a data byte to 6845 



v out byte 



endp 



Scroll Active Page Up 



Input: 



ah = 06h 



if al = 0, then clear entire window with attribute in bh 
else, al = number of rows to 'scroll' up 

= number of rows to clear at bottom of window 
bh = attribute to be used on blank row(s) 
(ch,cl) = (row, col) of upper left corner of window from (0,0) 
(dh,dl) = (row, col) of lower right corner of window from (0,0) 
Output: ah = attribute to be used on blank row(s) 
if vjnode =7, al = 20h = space 
else al = v_3x8 

Assume: (contents of v base6845)+6 = status register 

Trash: bp, si, & di destroyed, (bx thru dx destroyed if ROM stack) 



v scrl up 



proc 



near 



v txt up 



assume cs:Code, ds:data, es : v ram, ss : nothing 

; all registers preserved 

; jump if graphics 

; save registers 



call 


v txt md 


jb 


v txt up 


jmp 

): 


grf graphics up 


push 


dx 


push 


ex 


push 


bx 


mov 


bl,al 


mov 


ax, ex 


call 


v scrl pos 


jz 


v clr 



save line count 

pass upper left coordinates 

to common scroll positioning routine 
clear rows if nothing to move 



Scroll cl rows up. 



; v mv up : 
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F293 03 F0 



F295 

F295 8A E1 

F297 80 3E 0049 R 07 

F29C 74 0A 

F29E 53 



F29F BB F322 R 



F2A2 



F2A2 E8 F2EC R 
F2A5 5B 
F2A6 EB 10 



F2A8 

F2A8 1E 

F2A9 06 

F2AA 1F 
F2AB 

F2AB 8A CA 

F2AD F3/ A5 

F2AF 03 F5 

F2B1 03 FD 

F2B3 FE CC 



C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



add 



si, ax 



add (bytes/row)*(rows to scroll) to 
'from' address for scroll 



Scroll cl rows up/down (based on bp & direction flag DF). 



v mv: 



mov ah,cl 



ah <- number of rows to scroll 



cmp byte ptr ds : [v_mode],7 

je v mv_fast ; jump to fast loop 

push bx ; save parameters of " clear" 

; If a non-Olivetti Video Controller Board, we'll do a slow scroll 



mov bx, off set v_1 

in al,sys_conf_b 

test al,N0N_0LI_VID 

jnz v_mv2 



set up to move one word per scan line 
read port 67h (switches at 7w) 
non Olivetti video controller ? 
jump if not Olivetti Video Controller 



The dip-switches say it's Olivett. are we runing on a Turbo (M24SP) ? 



call 
mov 
mov 
v_mv1 : 
call 
sub 
cmp 
mov 
jb 
mov 
mv2: 



v_8253 

bh,bl 

cl,2 

loop v mv1 

v_8253 

bh.bl 

bh,23h 

bx, offset v 2 

v mv2 

bx, offset v 1 



Perform the scroll 

call v scroll or clear 
pop bx 
jmp short v clr 



v mv fast: 

push ds 

push es 

pop ds 

v mv f lp : 

mov cl,dl 

rep movsw 

add si,bp 



add 
dec 



di,bp 
ah 



latch and read counter 
bh <- lsb of latched count 
execute enough instructions to 

; distinguish 8 MHz from 10 MHz 
latch and read counter again 
compute the difference 
max val is 20h on 10 MHz 8086 
set up to move two words per scan line 
jump if 10 MHz cpu clock 
set up to move one word per scan line 



; recover the " clear" parameters 
; go clear rows at top/bottom 



ah has number of rows to move 

save data segment 

use video RAM address in es for move 

set up ds to address video RAM 

ah has number of rows to move 

number of columns to move 

move the row (es:di gets ds:si) 

add number of bytes to skip in row to 

'from' address for scroll 

add number of bytes to skip in row to 

'to' address for scroll 

one less row to be moved 
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F2B5 


75 F4 


C 
C 
C 
C 
C 
C 
C 
C 
C 




jnz 


v mv flp ; go back if not finished 


F2B7 


1F 




pop 


ds ; restore data segment 






; 


Set up 


to clear one or more rows 


F2B8 




v clr 






F2B8 


8A E7 


C 




mov 


ah,bh ; ah <- attribute of line to clear 


F2BA 


BO 20 


C 




mov 


al,' ' ; al <- "space" 


F2BC 


80 3E 0049 R 07 


C 




cmp 


byte ptr ds : [v mode], 7 


F2C1 


74 0C 


C 




je 


v clr fast 


; fast clear if monochrome board 


F2C3 


8B F0 


C 




mov 


si, ax 


; si <- attr : space 


F2C5 


8A E3 


C 




mov 


ah.bl 


; ah <- number of rows to clear 


F2C7 


BB F30D R 


C 
C 

c 
c 
c 
c 
c 
c 
c 




mov 


bx, offset v 


; set up for clear 






; 


Perform the clear 


F2CA 


E8 F2EC R 




call 


v scroll or clear 


F2CD 


EB 0A 




jmp short v clr fin 


F2CF 




v clr 


fast: 




F2CF 


8A CA 


c 




mov 


cl,dl ; number of columns to clear 


F2D1 


F3/ AB 


c 




rep stosw 


clear the row 


F2D3 


03 FD 


c 




add 


di,bp 


add number of bytes to skip in row 


F2D5 


FE CB 


c 




dec 


bl 


decrement row counter 


F2D7 


75 F6 


c 
c 
c 




jnz 


v clr fast 


repeat if not finished 


F2D9 




v clr 


fin: 




F2D9 


80 3E 0049 R 07 


c 




cmp 


byte ptr ds : [v mode], 7 


F2DE 


74 07 


c 




je 


v scrl mode 7 


F2E0 


AO 0065 R 


c 




mov 


al,byte ptr ds : [v 3x8] ; 




F2E3 


BA 03D8 


c 




mov 


dx,03D8h 


; video enable register. 


F2E6 


EE 


c 




out 


dx,al ; 


; enable video. 


F2E7 




c 
c 
c 
c 
c 


v scrl mode 7: 








; 


Restore 


the registers and return 


F2E7 


FC 




eld 


; restore the direction flag to UP 


F2E8 


5B 


c 




pop 


bx 


F2E9 


59 


c 




pop 


ex 


F2EA 


5A 


c 




pop 


dx 


F2EB 


C3 


c 
c 
c 
c 
c 
c 
c 




ret 








; 


Scroll 


or clear the requested number of rows 


F2EC 




v scroll or clear: 


F2EC 


8A CA 




mov 


cl,dl ; ex <- number of cols to move per row 


F2EE 


52 


c 




push 


dx ; save dl for subsequent " clear" call 


F2EF 


8B 16 0063 R 


c 




mov 


dx,[v base6845] 


F2F3 


83 C2 06 


c 




add 


dx,6 ; dx <- addr( video status register) 


F2F6 


1E 


c 




push 


ds ; save ds 
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F2F7 06 
F2F8 1F 



F2F9 FA 

F2FA E4 21 

F2FC 0C 01 

F2FE E6 21 

F300 FB 



F301 E8 F385 R 



F304 
F304 51 



F305 

F305 51 

F306 B1 02 

F308 E2 FE 

F30A 59 



F30B FF E3 



F30D 

F30D EC 

F30E DO D8 

F310 73 FB 



F312 96 
F313 AB 



F314 49 
F315 74 03 



F317 AB 
F318 EB 01 



C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



push es 
pop ds 

assume dS:V_ram 

Inhibit the timer interrupt 

cli 

in al,pic_1 

or al,01h 

out pic 1,al 

sti 



ds <- v ram segment 



8259 mask register 
mask IRQO 



V TOWS: 



Wait for the end of horizontal retrace 

call v sync 

Loop for each row to scroll or clear 

push ex ; save the column counter on the stack 

Waste some time to be sure retrace is ended 



V COlS: 

push ex 

mov cl,2 

v c2: loop v_c2 

pop ex 

; If clearing rows 

jmp bx 



This section of code is 
necessary for the 
Hercules Graphics Card 



; select case (vO, v 1 or v_2) 



Loop for all columns of the current row 
Wait for the beginning of horizontal retrace 



V 0: 



in 


al,dx 


rcr 


al,1 


jnc 


v 



Clear one word of the current row 



xchg ax, si 
stosw 



ax <- attrib: space 



If there are more columns to clear in the current row 

dec ex 
jz v_01 

Clear a second word 

stosw 

jmp short v 02 
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F31A 

F31A 41 
F31B 
F31B 96 



F31C E2 E7 
F31E EB 4A 



F320 00E0 
F322 

F322 EC 

F323 DO D8 

F325 73 FB 



F327 A5 



F328 EB OE 



F32A 0162 

F32C 

F32C E2 03 



F32E 41 
F32F EB F1 



F331 

F331 EC 

F332 DO D8 

F334 73 FB 



F336 A5 
F337 A5 



C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



V 01: 



V 02: 



V 1: 



V 2: 



v 21: 



inc ex ; adjust the column counter 

xchg ax, si ; restore ah = row counter 

Repeat for all columns of the current row 

loop v_cols 
jmp short v_31 

Else scrolling rows 
Loop for all columns in the current row 
If only one word can be moved at each horizontal retrace 
Wait for the beginning of horizontal retrace 

; # of words to move at vert, retrace 



dw 


V KSCR0LL1 


in 


al,dx 


rcr 


al,1 


Inc 


v 1 



Move one word of the current row 

movsw 

If vertical retrace has started 
If scrolling the full screen width 
Move a fixed number of words or finish the scroll 

jmp short v_v 

Else two words can be moved at each horizontal retrace 
If there is only one column remaining in this row 

dw V KSCR0LL2 ; # of words to move at vert, retrace 

loop v 21 

Move the last word of the current row 

inc ex ; adjust the column counter 

jmp v_1 

Else 
Wait for the beginning of horizontal retrace 



in 


al,dx 


rcr 


al,1 


jnc 


v 21 



Move two words of the current row 



movsw 
movsw 
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F338 

F338 A8 04 

F33A 74 2A 



F33C OB ED 
F33E 75 26 



F340 


8B EA 


F342 


5A 


F343 


52 


F344 


49 


F345 


8A C4 


F347 


FE C8 


F349 


F6 E2 


F34B 


03 C1 


F34D 


2E: 8B 4F 


F351 


2B C1 


F353 


72 1E 


F355 


F3/ A5 


F357 


F6 F2 


F359 


8A CC 


F35B 


41 


F35C 


40 


F35D 


8A E0 


F35F 


8B D5 


F361 


33 ED 


F363 


E8 F385 R 



F366 
F366 



E2 9D 



F368 




F368 


03 F5 


F36A 




F36A 


03 FD 


F36C 


59 


F36D 


FE CC 


F36F 


74 09 


F371 


EB 91 



c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



If vertical retrace has started 



V V: 



v 22: 



V 3: 



V 31: 



test al,04h 
jz v 22 



has vertical retrace started ? 
jump if not 



If scrolling the full screen width 



or 
jnz 



bp,bp 
v 22 



Move a fixed number of words or finish the scroll 



save the video status reg. addr 

dx <- number of columns per row 

save it for the next row pass 

ex = cols remaining to move, this row 

al <- remaining row count 

don't want to consider the curr. row 

ax <- cols remaining on subseq. rows 

ax <- total columns remaining to move 

set up to move V_KSCR0LLn words 

ax <- cols left after move V_KSCROLLn 

fewer than V KSCROLLn remaining ? 

jump if so, exit the row loop 

move V_KSCR0LLn words 

al <- full rows remaining to be moved 

ah <- columns left to move, curr. row 

restore column counter in ex 

adjust column counter 

adjust row counter 

restore row counter in ah 

restore video status reg addr 

restore bp register 

wait for the end of nor. retrace 



Repeat for all columns in the current row 

loop v cols 

Repeat while more rows remain to be scrolled 



mov 


bp,dx 


pop 


dx 


push 


dx 


dec 


ex 


mov 


al,ah 


dec 


al 


mul 


dl 


add 


ax, ex 


mov 


CX,CS:[bX"2] 


sub 


ax, ex 


jb 


v v2 


rep movsw 


div 


dl 


mov 


cl,ah 


inc 


ex 


inc 


ax 


mov 


ah,al 


mov 


dx,bp 


xor 


bp,bp 


call 


v sync 



add 



si,bp 



; advance source pointer to next row 

advance dest. pointer to next row 
reinitialize the column counter 
decrement the row counter 
jump if all rows finished 
continue with the next row 



Move any remaining words during the current vertical retrace interval 



add 


di,bp 


pop 


ex 


dec 


ah 


jz 


v 4 


jmp 


v rows 
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F373 






C \ 


t V2: 






F373 


03 


C8 


C 




add 


cx T ax 


F375 


F3/ A5 


C 




rep movsw 


move the remaining words 


F377 


59 




C 




pop 


ex 


reinitialize the column counter 


F378 


33 


ED 


C 
C 

C ; 

C 
C V 




xor 


bp,bp 


restore bp register 










Reenable the timer interrupt and return 


F37A 






4: 






F37A 


FA 




C 




cli 




F37B 


E4 


21 


C 




in 


al ? pic 1 ; 8259 mask register 


F37D 


24 


FE 


C 




and 


al,not 01h ; unmask IRQO 


F37F 


E6 


21 


C 




out 


pic 1,al 


F381 


FB 




C 




sti 




F382 


1F 




C 
C 




pop 


ds ; restore ds 
assume ds:data 


F383 


5A 




C 




pop 


dx ; restore dl for subsequent " clear" call 


F384 


C3 




C 
C 

C ; 

C 

C ; 




ret 












Latch 


and read counter of the 8253 








;;V 8253: 










C ; 




mov 


al,0 ; " latch counter" command 








C ; 




out 


43h,al 


latch 8253 counter 








C ; 




in 


al,40h 


lsb of latched count 








C ; 




mov 


bl,al ; 


save it for comparison 








C ; 




in 


al,40h ; 


msb of latched count 








C ; 
C 

C ; 
C 
C V 




ret 












Wait for the end of horizontal retrace 


F385 






sync: 






F385 


EC 




C 




in 


al,dx 


F386 


DO 


D8 


C 




rcr 


al,1 


F388 


73 


FB 


C 




jnc 


v sync 


F38A 






C V 


sync2 






F38A 


EC 




c 




in 


al,dx 


F38B 


DO 


D8 


c 




rcr 


al,1 


F38D 


72 


FB 


c 




jc 


v sync2 


F38F 


C3 




c 




ret 




F390 






C v 
C 

C ; 
C ; 
C ; 
C ; 


scrl 


up 


endp 










Scroll 


Active Page Down ah = 07h 










Input: 


if al = 0, then clear entire window with attribute in bh 








C ; 






else, al = number of rows to 'scroll' down 








C ; 






= number of rows to clear at top of window 








C ; 






bh = attribute to be used on blank row(s) 








C ; 






(ch,cl) = (row, col) of upper left corner of window from (0,0) 








C ; 






(dh,dl) = (row, col) of lower right corner of window from (0,0) 








C ; 




Output 


ah = attribute to be used on blank row(s) 








C ; 






if v mode =7, al = 20h = space 








C ; 
C ; 






else al = v 3x8 
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F390 



F390 FD 

F391 E8 F571 R 

F394 72 03 

F396 E9 D689 R 
F399 

F399 52 

F39A 51 

F39B 53 

F39C 8A D8 

F39E 8B C2 

F3A0 E8 F513 R 

F3A3 74 07 



F3A5 




F3A5 


2B F0 


F3A7 


F7 DD 


F3A9 


E9 F295 R 



F3AC 

F3AC F7 DD 

F3AE E9 F2B8 R 

F3B1 



F3B1 



Assume: (contents of v_base6845)+6 = status register 

Trash: bp, si, & di destroyed, (bx thru dx destroyed if ROM stack) 



v scrl dn proc near 

assume cs:Code, ds : 
std 



v txt dn 



call 


v txt md 


jb 


v txt dn 


: 


grf graphics down 


push 


dx 


push 


ex 


push 


bx 


mov 


bl.al 


mov 


ax,dx 


call 


v scrl pos 


jz 


v clr top 



data, es:V ram, ss : nothing 

; NOTE: scroll down everything backwards 

; all registers preserved 

; jump if graphics 

; save registers 



save line count 

pass lower right coordinates 

to common scroll positioning routine 
clear rows if nothing to move 



; Scroll cl rows down. 

v mv_dn : 

sub si, ax 

neg bp 
jmp v_mv 

; Clear bl rows above. 

v clr_top : 

neg bp 
jmp v_clr 

v scrl dn endp 



subtract (bytes/row)*(rows to scroll) 
from 'from' address for scroll 
negate number of bytes to skip per row 
now identical to scroll up! 



; negate number of bytes to skip per row 
; now identical to v clr bot! 



Read Attribute & Character at Cursor ah = 08h 

Input: bh = current active display page (0-7) 
Output: al = character read 

ah = attribute of character read 

Assume: (contents of v_base6845)+6 = status register 

Trash: si & di destroyed, (si = dx ; di = bx) 



v rac proc near 
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F3B1 E8 F571 R 

F3B4 72 03 

F3B6 E9 D6EC R 
F3B9 

F3B9 8B FB 

F3BB E8 F542 R 



F3BE 8B F2 
F3C0 BA 0006 
F3C3 03 16 0063 R 



F3C7 

F3C7 EC 

F3C8 .DO D8 

F3CA 72 FB 

F3CC FA 



F3CD 

F3CD EC 

F3CE DO D8 

F3D0 73 FB 

F3D2 26: 8B 07 

F3D5 FB 

F3D6 8B D6 

F3D8 8B DF 

F3DA C3 

F3DB 



C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



assume csrcode, ds:data, es : v_ram, ss : nothing 

; all registers preserved 
; jump if graphics 



call v txt md 

jb v txt rac 

jmp grf_graphics_read 
v txt rac: 



mov di,bx 
call v fpos 



save bx 

ax & si destroyed. 

bx = offset into current page 



mov si,dx 

mov dx,6 

add dx,word ptr ds : [v base6845] 



save dx 

get 6845 status reg. offset 

add 6845 pointer 



Wait for horizontal retrace... we can't read the screen during a trace 
without disturbing the screen image. 



v_rac_inline : 
in 
rcr 
jc 
cli 



v_rac_inblank: 
in 
rcr 
jnc 



al,dx 

al,1 

v rac inline 



al,dx 

al,1 

v rac inblank 



mov ax,es:[bx] 
sti 

mov dx,si 
mov bx,di 
ret 



make sure we're in a scanline 
get horiz. retrace blanking status 
test for horiz. retrace 
wait for display enable low (cf) 
disable ints FIRST 

wait for blanking: 

get retrace blanking status 
test display enable (bit #0) 
try again if still in scanline. 

char, and attr. now in AX 
enable interrupts immediately 

restore dx 
restore bx 



v rac endp 



; Write Attribute & Character at Cursor ah = 09h 


; Input: 


al 


= character to write 




bh 


= current active display page (0-7) 




bl 


= attribute of character to write 




ex 


= counter of characters to write 




bp 


= value to return in ax 


; Output: 


al 


= character to write 




ah 


= attribute of character to write 


; Assume: 


(contents of v base6845)+6 = status register 


Trash: 


bp, 


si & di destroyed, (si = cx ; dx if ROM stack) 
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F3DB 




C 
C 
C 
C 
C 
C 


v wac 


proc 


near 












assume 


1 cs:C0de, ds 


data, 


es:V ram, ss : nothing 


F3DB 


E8 F571 R 




call 


v txt md 




; all registers preserved 


F3DE 


72 03 


C 




jb 


v txt wac 






F3E0 


E9 D7DB R 


C 




jmp 


grf graphics 


> write ; jump if graphics 


F3E3 




C 
C 
C 
C 

C 


v txt 


wac: 








F3E3 


8B FB 




mov 


di,bx 




; save bx 


F3E5 


E8 F542 R 




call 


v fpos 




; ax & si destroyed. 






c 










; bx = offset into current page 


F3E8 


87 DF 


c 
c 

c 




xchg 


bx,di 




; restore bx ; di = transfer offset 


F3EA 


8B C5 




mov 


ax,bp 




; restore ax 


F3EC 


8A E3 


c 




mov 


ah.bl 




; transfer attribute byte to ah 


F3EE 


8B E8 


c 
c 
c 




mov 


bp,ax 




; save attribute & character in bp 


F3F0 


8B F1 




mov 


si, ex 




; save ex 


F3F2 


52 


c 




push 


dx 




; save dx 


F3F3 


8B 16 0063 R 


c 




mov 


dx,word ptr 


dS:[V 


base6845] ; get 6845 pointer register 


F3F7 


83 C2 06 


c 
c 
c 
c 




add 


dx,6 




; get 6845 status register 






; Wait 


for horizontal retrace blank interval . . . 


F3FA 




c 
c 


v wac 


hi: 






; wait till we're in a scanline.. 


F3FA 


EC 


c 




in 


al,dx 




; get CRT status 


F3FB 


DO D8 


c 




rcr 


al,1 




; test display enable (bit #0) 


F3FD 


72 FB 


c 




jc 


v wac hi 




; wait for display enable low (cf) 


F3FF 


FA 


c 
c 
c 




cli 






; disable ints FIRST 


F400 




v wac 


10: 






; now wait till start of blanking.. 


F400 


EC 


c 




in 


al,dx 




; 08 get CRT status 


F401 


DO D8 


c 




rcr 


al,1 




; 02 test display enable (bit #0) 


F403 


73 FB 


c 
c 
c 




jnc 


v wac lo 




; 16/04 wait for display enable hi (cf) 


F405 


8B C5 




mov 


ax,bp 




; 02 restore ax 


F407 


AB 


c 
c 
c 




stosw 






; 11 es:di gets ax (attribute & char) 


F408 


49 




dec 


ex 




; 02 






c 










; we can do 2 words in 10 us 


F409 


74 04 


c 




jz 


v wac end 




; 04/16 


F40B 


AB 


c 
c 
c 
c 
c 




stosw 






; 11 es:di gets ax (attribute & char) 






; Worst case: 


(8+2+16)+(8+2+ 


4)+(2-> 


-11)+(2+4+11) = 70 cycles = 87.5% of 80 cycles 


F40C 


FB 




sti 






; enable interrupts immediately 


F40D 


E2 EB 


c 
c 
c 




loop 


v wac hi 




; do it ex times 


F40F 




v wac 


end: 








F40F 


FB 


c 
c 




sti 






; enable interrupts immediately 
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F410 


5A 


C 




pop 


dx ; restore dx 


F411 


8B CE 


C 




mov 


ex, si ; restore ex 


F413 


C3 


C 
C 
C 
C 
C 
C 

c 
c 




ret 




F414 




\/ wac 


endp 










Write 


Character at Cursor Position ah = OAh 








Input: 


al = character to write 






c 






bh = current active display page (0-7) 






c 






ex = counter of characters to write 






c 






bp = value to return in ax 






c 




Output 


al = character to write 






c 
c 
c 
c 
c 
c 
c 

C \ 

c 
c 
c 
c 






ah = top byte of offset of character in page 








Assume 


(contents of v base6845)+6 = status register 








Trash: 


si & di destroyed, (si = cx ; dx if ROM stack) 


F414 




1 wc 


proc 


near 








assume 


cs:Code, ds:data, es : v ram, ss : nothing 


F414 


E8 F571 R 




call 


v txt md ; all registers preserved 


F417 


72 03 


c 




jb 


v txt wc 


F419 


E9 D7DB R 


c 




jmp 


grf graphics write ; jump if graphics 


F41C 




C \ 

c 
c 
c 
c 


txt \ 


VC: 




F41C 


8B FB 




mov 


di,bx ; save bx 


F41E 


E8 F542 R 




call 


v fpos ; si destroyed. 






c 






; ax = offset into page 






c 






; bx = offset into current page 


F421 


87 DF 


c 
c 




xchg 


bx,di ; restore bx ; di = transfer offset 


F423 


8B F1 


c 
c 




mov 


si, ex ; save ex 


F425 


52 


c 
c 
c 




push 


dx ; save dx 


F426 


8B D5 




mov 


dx,bp ; retrieve character in dl 


F428 


8A C2 


c 




mov 


al,dl ; get char in al (ah = attr.) 


F42A 


8B E8 


c 
c 
c 




mov 


bp,ax ; bp = (attr. char) 


F42C 


BA 0006 




mov 


dx,6 ; get 6845 status register 


F42F 


03 16 0063 R 


c 
c 

C ; 

c 

C v 

c 

C v 




add 


dx,word ptr ds : [v base6845] ; get 6845 pointer register 






Wait 


for horizontal retrace... 


F433 




wc next: 




F433 




wc hi 






F433 


EC 


c 




in 


al,dx ; get CRT status 


F434 


DO D8 


c 




rcr 


al, 1 ; test display enable (bit #0) 
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F436 


72 FB 


C 




JC 


v wc hi ; wait for display enable low (cf) 


F438 


FA 


C 
C 
C 




cli 


; disable ints FIRST 


F439 




V wc 


10: 




F439 


EC 


C 




in 


al,dx ; 08 get CRT status 


F43A 


DO D8 


C 




rcr 


al,1 ; 02 test display enable (bit #0) 


F43C 


73 FB 


C 
C 

c 




jnc 


v wc lo ; 16/04 wait for display enable hi (cf) 


F43E 


8B C5 




mov 


ax,bp ; 02 restore ax = (attr, char) 


F440 


AA 


c 
c 
c 




stosb 


; 11 es:di gets al (character) 


F441 


49 




dec 


CX ; 02 






c 






; we can do 2 bytes in 10 us 


F442 


74 06 


c 




jz 


v wc end ; 04/16 


F444 


47 


c 
c 
c 
c 
c 
c 
c 




inc 


di ; 02 skip past attribute byte 


F445 


AA 




stosb 


; 11 es:di gets al (character) 






; Worst case: 


;8+2+16)+(8+2+4)+(2+11)+(2+4+2+11) = 72 cycles = 90% of 80 cycles 


F446 


FB 




sti 


; enable interrupts immediately 


F447 


47 


c 




inc 


di ; skip past attribute byte 


F448 


E2 E9 


c 
c 
c 




loop 


v wc next ; do it ex times 


F44A 




i/ wc 


end: 




F44A 


FB 


c 

c 
c 




sti 


; enable interrupts immediately 


F44B 


5A 




pop 


dx ; restore dx 


F44C 


8B CE 


c 




mov 


cx,si • ; restore ex 


F44E 


C3 


c 
c 

C \ 

c 
c 
c 
c 
c 




ret 




F44F 




/ wc 


endp 










Set Overscan, Back, & Foreground Colors ah = OBh 








Input: 


bh = palette color ID to set (0-127) 






c 






bl = color value to be used with that color ID 






c 




Output 


ah = v mode 






c 
c 
c 
c 
c 
c 
c 

C \ 

c 
c 
c 
c 
c 
c 






al = new v colorpal 








Assume 


(contents of v base6845)+5 = overscan register 








Trash: 


si & di destroyed, (si = bx ; di = dx) 


F44F 




/ col 


proc 


near 








assume 


cs:Code, ds:data, es:V ram, ss : nothing 


F44F 


AO 0066 R 




mov 


al,byte ptr ds : [v colorpal] ; get current palette 


F452 


8B FA 




mov 


di,dx ; save dx 


F454 


8B F3 


c 
c 




mov 


si,bx ; save bx 
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F456 


OA FF 


C 




or 


bh,bh 


; palette color ID = 0? 


F458 


74 OA 


C 
C 
C 




Jz 


v col 


; handle color ID 


F45A 


24 DF 




and 


al.ODFh 


; clear palette select bit #5 


F45C 


DO DB 


C 




rcr 


bl,1 


; test new color (bit #0) 


F45E 


73 OB 


C 




jnb 


v col 1 


; if bit #0 set, all done 


F460 


OC 20 


C 




or 


al,20h 


; else set palette select bit #5 


F462 


EB 07 


C 
C 
C 




jmp 


short v col 1 




F464 




\/ col 


0: 






F464 


80 E3 1F 


C 




and 


bl,01Fh 


; save bits #0-4 of new color 


F467 


24 EO 


C 




and 


al,0E0h 


; clear bits #0-4 of old color 


F469 


OA C3 


C 
C 
C 




or 


al,bl 


; and combine the two. 


F46B 




\l col 


1: 






F46B 


BA 0005 


C 




mov 


dx,5 


; get 6845 overscan reg. offset 


F46E 


03 16 0063 R 


C 




add 


dx,word ptr ds : [v base6845] 


; add 6845 pointer register 


F472 


EE 


C 
C 
C 




out 


dx,al 


; output selection 


F473 


8B DE 




mov 


bx,si 


; restore bx 


F475 


8B D7 


C 
C 
C 




mov 


dx,di 


; restore dx 


F477 


A2 0066 R 




mov 


byte ptr ds : [v colorpal],al 


; save the value for later 


F47A 


C3 


C 
C 

C \ 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 




ret 






F47B 




/ col 


endp 












Write Dot (see graph. src) ah = 


OCh 








Read Dot (see graph. src) ah = 


ODh 








Terminal Emulator to active page 


ah = OEh 








Input: 


al = character to write 








c 






bl = foreground color in graphics mode 






c 






bp = value to return in 


ax 






c 
c 
c 
c 
c 

C \ 

c 
c 
c 
c 




Output: 


All registers saved. 










Trash: 


si & di destroyed, (si = cx ; 


di = bx ; dx if ROM stack) 


F47B 




/ terminal proc 


near 










assume 


cs:Code, ds:data, es : v ram, 


3S: nothing 


F47B 


3C 07 




cmp 


al,BEL 


; is it bell character? 


F47D 


75 03 


c 
c 
c 
c 




jne 


v term nobell 




F47F 


E9 F583 R 




jmp 


v bell 
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F482 




C 


v tern 


nobell 






F482 52 




C 




push 


dx 


; save dx 


F483 8B 


F1 


C 




mov 


si, ex 


; save ex 


F485 8B FB 


C 
C 
C 
C 
C 




mov 


di,bx 


; save bx 






; Get 


cursor [ 


Dosition in active page. 




F487 B7 


07 




mov 


bh,07h 


; mask for page number, MOD 8 


F489 22 


3E 0062 R 


C 
C 
C 




and 


bh,byte ptr ds.-[v apage] 


; get active page number (0-7) 


F48D B4 


03 




mov 


ah,03h 


; call v r curs pos 


F48F CD 


10 


C 
C 

c 




INT 


10h 


; (dh,dl) = (row, col) of cursor 
; (ch,cl) = cursor mode setting 


F491 8B C5 


C 




mov 


ax,bp 


; restore ax 


F493 B9 


0001 


c 




mov 


cx,1 


; character count for write char 


F496 B4 


OA 


c 
c 
c 
c 
c 




mov 


ah,0Ah 


; function code for write char 






; Handle special cases: dx has (row, col) 


of current cursor position. 


F498 3C 


OA 




cmp 


al,LF 


; is it a line feed? 


F49A 74 


14 


c 




je 


v If 




F49C 3C 


OD 


c 




cmp 


al,CR 


; is it a carriage return? 


F49E 74 60 


c 




je 


v cr 




F4A0 3C 


08 


c 




cmp 


al,BS 


; is it a backspace? 


F4A2 74 


54 


c 
c 
c 
c 
c 
c 
c 




je 


v bs 








; Normal Case: 


write the character 




F4A4 CD 


10 




INT 


10h 


; to write the character 


F4A6 FE 


C2 




inc 


dl 


; increment the column 


F4A8 3A 


16 004A R 


c 




cmp 


dl,byte ptr ds : [v width] 


; column overflow? 


F4AC 72 


13 


c 
c 
c 
c 
c 




jb 


v set new cur 


; set new cursor position 


F4AE 32 


D2 




xor 


dl,dl 


; carriage return cursor 


F4B0 80 


3E 0049 R 48 


V If: 


cmp 


byte ptr ds : [v mode], 72 


; is this mode 72 ? 


F4B5 B4 


31 


c 




mov 


ah, 49 


; mode 72 has 50 rows 


F4B7 74 


02 


c 




je 


v lrow 


; jump if mode 72 


F4B9 B4 


18 


c 




mov 


ah, 24 


; modes 4,5,6,64 have 25 rows 


F4BB 3A 


F4 


c 


v lrow 


cmp 


dh,ah 


; are we at last row yet? 


F4BD 74 


07 


c 




je 


v scrl tty 


; if yes, go scroll the screen 


F4BF FE 


C6 


c 




inc 


dh 


; otherwise, inc to next row 


F4C1 




c 


v set new cur: 






F4C1 B4 


02 


c 




mov 


ah,02h 


; call v curs pos to set new 


F4C3 EB 29 90 


c 
c 
c 




jmp 


v term ret 


; cursor position 


F4C6 




v scrl 


tty : 


; 


(dh,dl) = (row, col) = (24,0) or (49,0) 


F4C6 B4 


02 


c 




mov 


ah,02h 


; call v curs pos to set cursor 


F4C8 CD 


10 


c 
c 
c 
c 




INT 


10h 


; and so that we can read back 
; the proper attribute byte 


F4CA 32 


E4 




xor 


ah, ah 


; ah = for graphics 


F4CC E8 


F571 R 


c 




call 


v txt md 


; are we text mode? 
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F4CF 


73 


04 




C 
C 
C 




jnb 


v scrl 


tty graphics 






jump if graphics 


F4D1 


B4 


08 






mov 


ah,08h 








call v rac 


F4D3 


CD 


10 




C 
C 
C 




INT 


10h 








to get attribute byte in ah 


F4D5 








v scrl 


tty graphics: 










F4D5 


33 


C9 




C 
C 




xor 


ex, ex 








(ch,cl)= upper left (row, col) 
= (0,0) 


F4D7 


8A 


FC 




C 




mov 


bh,ah 








store attribute in bh 


F4D9 


B8 


0601 


C 




mov 


ax,0601h 






call v scrl up to scroll 










C 














one line with attribute bh 


F4DC 


8A 


16 


004A R 


C 




mov 


dl,byte ptr ds : [v wi 


dth] 




(dh,dl)= lower right (row, col) 


F4E0 


80 


EA 


01 


C 




sub 


dl,1 








column = v width-1 


F4E3 


80 


3E 


0049 R 48 


C 




cmp 


byte ptr ds : [v mode] 


,72 




is this mode 72 ? 


F4E8 


B6 


31 




C 




mov 


dh,49 








if yes then row = 49 


F4EA 


74 


02 




C 




je 


v term 


ret 






jump if mode = 72 


F4EC 


B6 


18 




C 
C 
C 




mov 


dh,24 








if not mode 72 then row = 24 


F4EE 








\i term 


ret: 












F4EE 


CD 


10 




C 




INT 


10h 










F4F0 








C 
C 
C 
C 

c 


\i term 


nop: 




















Clear 


i up. 












F4F0 


8B 


C5 






mov 


ax,bp 








restore ax 


F4F2 


8B 


DF 




c 




mov 


bx,di 








restore bx 


F4F4 


8B 


CE 




c 




mov 


ex, si 








restore ex 


F4F6 


5A 






c 




pop 


dx 








restore dx 


F4F7 


C3 






c 
c 




ret 












F4F8 


0A 


D2 




c 

c > 


/ bS: 


or 


dl.dl 








back space — column = ? 


F4FA 


74 F4 




c 




jz 


v term 


nop 






don't change cursor position 


F4FC 


FE 


CA 




c 




dec 


dl 










F4FE 


EB C1 




c 
c 




jmp 


v set new cur 








F500 


32 


D2 




c 

C \ 


/ cr : 


xor 


dl,dl 








carriage return 


F502 


EB 


BD 




c 

c 

c > 

c 

c 

c 

c 

c 




jmp 


v set new cur 








F504 








/ terminal endp 






















Read Current Video Status 


ah = 


OFh 














Input: 


None. 


















c 




Output: 


ah 


= number of 


character 


columns on screen 










c 






al 


= display mode currently 


set 










c 
c 
c 
c 
c 

C \ 

c 






bh 


= current active display page (0-7) 












Trash: 


None. 










F504 








/ stat 


proc 


near 











1-220 



ROM BIOS Listing 



ROM BIOS Listing 











C 
C 
C 


assume 


cs:Code, ds:data, es : v ram, ss : nothing 


F504 


8A 


26 


004A R 


mov 


ah, byte ptr ds : [v width] 


F508 


AO 0049 R 


C 


mov 


al.byte ptr ds : [v mode] 


F50B 


8A 


3E 


0062 R 


C 


mov 


bh,byte ptr ds : [v apage] 


F50F 


80 


E7 


07 


C 


and 


bh,07h ; page number mod 8 


F512 


C3 






C 
C 
C 


ret 




F513 








v stat endp 












C 
C 


page 












C 
C 
C 
C 
C 


; Common 


scroll positioning and register initialization routine. 










; Input: 


(ah,al) = starting (row, col) position from (0,0) 










C 




= (ch,cl) for up / (dh,dl) for down 










C 




bh = attribute to be used on blank row(s) 










C 




if bl = 0, then clear entire window with attribute in bh 










C 




else, bl = number of rows to 'scroll' up / down 










C 




= number of rows to clear at top / bottom of window 










C 




(ch,cl) = (row, col) of upper left corner of window from (0,0) 










C 
C 

c 




(dh,dl) = (row, col) of lower right corner of window from (0,0) 










es: 


+ + 










c 
c 
c 
c 
c 
c 




I (ch,cl) I 












II II 
II II 
II II 












i + | 










c 
c 




I bl I I II 












| y + + | 










c 
c 
c 




I (dh,dl) I 






















c 


Output: 


zf = state of bl at entry (nz if scroll; z if clear only) 










c 




ax = (number of bytes/row) * (number of rows to scroll) 










c 




= (2 * bl * v width) 










c 




bh = attribute to be used on blank line(s) 










c 




if bl = at entry, then clear entire window with bl attribute 










c 




bl = dh = window height to clear 










c 




else, bl = number of rows to 'scroll' up / down 










c 




= number of rows to clear at top / bottom of window 










c 




ch = zero 










c 




cl = number of rows to move 










c 




= delta of upper and lower coordinates-bl = (dh-bl) 










c 




(dh,dl) = delta of upper left and lower right coordinates 










c 




= window height and width 










c 




bp = number of bytes NOT to move per row (2*(v width -dl)) 










C ; 




si = 'from' address for scroll 










C ; 




di = 'to' address for scroll 










C ; 




ds = data seg (preserved) 










C ; 
C ; 




es = para mono 
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F513 



F513 


E8 F560 R 


F516 


2A F5 


F518 


f E C6 


F51A 


2A D1 


F51C 


FE C2 


F51E 


8B 36 004E R 


F522 


03 F0 


F524 


8B FE 


F526 


33 C9 


F528 


8A CA 


F52A 


A1 004A R 


F52D 


8B E8 


F52F 


2B E9 


F531 


D1 E5 


F533 


DO E0 


F535 


F6 E3 


F537 


8A CE 


F539 


2A CB 


F53B 


OA DB 


F53D 


75 02 


F53F 


8A DE 


F541 




F541 


C3 



F542 



C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



es: 



page 
v scrl pos 



mov 



<-- bp -> 

+ 

si, di offset if up 

+ 

l< dl 

I 
I 



<-- bp -> 



>l 



dh 



bl I I 
v + 



+ v 



si, di offset if down 



sub 


dh,ch 


inc 


dh 


sub 


dl,cl 


inc 


dl 


mov 


si, wo 


add 


si, ax 


mov 


di,si 



proc near 
assume cs : code, ds : data, es : v ram, ss : nothing 
call v_posn ; (ah,al) -> ax offset; si trash 



(dh,dl) gets delta (drow,dcol) 
dh = number of rows 



; dl = number of columns 

si, word ptr ds : [v_top] ; get offset of active page 

; add offset in page => 'from' 
; 'to' addresses. 



init count register to zero. 

ex = number of columns = dl 

get screen width 

bp = v width 

bp = (v width - dl) 

bp = 2 * (v_width - dl) 

al = 2 * v_width 

ax = 2*v width*no. of rows 



; cl <= number of rows to move 

; if rows to scroll, 
then, move & clear row, return nz. 



xor 


ex, ex 


mov 


cl,dl 


mov 


ax, word ptr ds : [v width 


mov 


bp,ax 


sub 


bp,cx 


shl 


bp,1 


shl 


al,1 


mul 


bl 


mov 


cl,dh 


sub 


cl.bl 


or 


bl,bl 


jnz 


v scrl mv and clr 



bl,dh 



v scrl mv and clr: 
ret 

v_scrl pos endp 
page 



else clear dh rows only, return z. 
ZF indicates state of BL at entry 
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F542 



F542 


8A 


C7 


F544 


33 


DB 


F546 


25 


0007 


F549 


8B 


F0 


F54B 


74 


07 


F54D 






F54D 


03 


1E 004C R 


F551 


48 




F552 


75 


F9 


F554 






F554 


D1 


E6 


F556 


8B 


84 0050 R 


F55A 


E8 F560 R 


F55D 


03 


D8 


F55F 


C3 





F560 



F560 



F560 


8B F0 


F562 


81 E6 00FF 


F566 


8A C4 


F568 


F6 26 004A R 


F56C 


03 C6 


F56E 


D1 E0 


F570 


C3 



Calculates video ram buffer offset of a character in text mode 

Input: bh = current active display page (0-7) 
Output: bx = offset of character in text mode at display page 
= (page number)*(v height)+offset of v curpos(bh) 
ax = offset of character in text mode from page 



Trash: si = destroyed. 



v fpos proc near 

assume cs:COde, ds:data, es:v ram, ss : nothing 



mov 
xor 
and 
mov 
jz 

V_f pOS_lp : 

~ add 
dec 
jnz 

V_fpOS_0: 

~ shl 
mov 
call 
add 
ret 

v fpos endp 



al,bh 
bx,bx 
ax,07h 
si, ax 
v fpos 



bx,word ptr ds.- [vheight] 

ax 

v fpos lp 



si,1 

ax, word ptr ds : [si+v curpos] 

v posn 

bx,ax 



al gets page number 

bx = 

ax = page number mod 8 

si keeps page number mod 8 

page number = 0? 



optimization: word multipli- 
cation by less than 8 without 
destroying dx (or ex). 

bx = (page number)*(v_height) 
page number mod 8 word index 

(ah,al) -> ax offset; si trash 
bx = (page)*(v_height)+offset 



Calculates 


video 


ram buffer 


offset of 


a character in 


text 


mode 


Input: 
Output: 


(ah 
ax 


,al) = 


= (row, col) position 
= offset of character 


in text 


mode. 






Trash: 


si 


destroyed. 













v posn proc near 

assume cs:Code, ds:data, es : v ram, ss : nothing 



mov 


si, ax 




and 


si,0FFh 




mov 


al,ah 




mul 


byte ptr ds: 


[v width] 


add 


ax, si 




shl 


ax,1 




ret 







si keeps column (al) 

al gets row (ah) 

ax gets (row * v_width) 

ax gets (row * v width)+ column 

ax gets 2*((row * v width)+column) 
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F571 



F571 



F571 80 3E 0049 R 04 
F576 72 09 



F578 
F57D 
F57F 
F580 



80 3E 0049 R 07 

74 02 

F8 

C3 



F581 

F581 F9 
F582 C3 

F583 



F583 



F583 50 



F584 


BO B6 


F586 


E6 43 


F588 


BO 00 


F58A 


E6 42 


F58C 


BO 06 


F58E 


E6 42 


F590 


E4 61 


F592 


8A E0 


F594 


0C 03 



c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



v posn 



endp 



Is v mode text or graphics or black/white card? 

Input: None. 

Output: carry flag (cf) set if text, carry flag cleared if graphics. 

Text Modes: to 3 and 7 

Graphics Modes: 4 to 6, 64, and 72 

Trash: None. 



v txt md 



cmp 
jb 

cmp 

je 

clc 

ret 



proc near 

assume cs:COde, ds:data, es:V ram, ss : nothing 

byte ptr ds : [v_mode],4 
v txt ok 



byte ptr ds : [v mode], 7 
v txt ok 



v txt ok: 



stc 
ret 



graphics mode (CF = 0) 
modes 4 to 6, 64, and 72 



; text mode (CF = 1) 
; modes to 3 and 7 



v txt md 



endp 



Handle BEL character: Beeps the speaker. 
No parameters. 



v bell proc near 

assume cs:COde, ds:data, es:V ram, ss : nothing 

push ax 

; p_8253_2,lsb 1st, mode 3, no BCD 

; p_timer count 

; least significant byte 



; most significant byte 

get control data 
save control status 
turn speaker on 



mov 


al,t2cmd 


out 


p 8253 ctrl,al 


mov 


al.OOh 


out 


p 8253 2,al 


mov 


al,06h 


out 


p 8253 2,al 


in 


al,p kctrl 


mov 


ah,al 


or 


al,03h 
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F596 


E6 61 


F598 


51 


F599 


B9 00C8 


F59C 




F59C 


E8 EF4C R 


F59F 


E2 FB 


F5A1 


59 


F5A2 


8A C4 


F5A4 


E6 61 


F5A6 


58 


F5A7 


C3 



F5A8 



F5A8 

F5A8 32 E4 
F5AA C3 

F5AB 

F5AB 



F5AB 



F5AB 



F5AB 


BA 03F4 


F5AE 


EC 


F5AF 


3C 10 


F5B1 


75 12 


F5B3 


A0 0041 R 


F5B6 


50 



out 

push 
mov 
bell wait: 
call 
loop 
pop 



p kctrl,al 

ex 
ex, 200 

f_wait_one_ms 

bell_wait 

ex 



mov al,ah 
out p kctrl.al 



pop 
ret 

v bell endp 



ax 



; 512 msec 
; wait for 1 ms 

; restore control status 

; return from v term 



; Read Light Pen 


function code = 04h 


; Input: None. 




; Output: ah 


= light pen switch not down/not triggered 


; ah 


= 1 implies: 




(dh,dl) = (row, col) of character light pen 




position from (0,0) 




ch = raster line (0-199) 




bx = pixel column (0-319,0-639) 


Trash: None. 


??? 



grf light pen proc near 

xor ah, ah 
ret 

grf light pen endp 

code ends 
include fdu4.asm 



; return ah = for now (al intact). 



code segment public 'ROM' 

assume cs:Code, ds:data, es : nothing, ss : nothing 



f nee reset 

mov 

in 

emp 

jne 

mov 

push 



proc near 

dx,f nee status 

al,dx 

al,10h 

f nee reset ret 

al, diskette status 

ax 



NEC status port 

NEC busy. 

no. 

save from previous operation. 



ROM BIOS Listing 



1-225 



ROM BIOS Listing 



F5B7 


33 CO 


F5B9 


8B DO 


F5BB 


9C 


F5BC 


9A 


F5BD 


EC59 R 


F5BF 


F000 



F5C1 58 

F5C2 A2 0041 R 

F5C5 

F5C5 C3 

F5C6 



F5C6 



C6 06 0040 R FF 

8A 4E 00 

B0 01 

D2 E0 

84 06 003F R 

75 12 

A2 003F R 

8A E1 

B1 04 

D2 E0 

OC OC 

OA C4 
F5E5 BA 03F2 
F5E8 EE 
F5E9 F9 

F5EA 

F5EA C3 
F5EB 



F5C6 
F5CB 
F5CE 
F5D0 
F5D2 
F5D6 
F5D8 
F5DB 
F5DD 
F5DF 
F5E1 
F5E3 



C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



xor 

mov 

pushf 

db 

dw 

dw 



ax, ax 
dx,ax 

9ah 
fd_io 
code seg 



; int 13h 

pop ax 

mov diskette status, al 
f nee reset_ret: 

ret 



; reset call. 

; this is call far 0f000:fd_io 
; because of ram disks 

; restore from previous op. 



f nee reset 



endp 



(f motor on) 

INPUT: 

OUTPUT: 
DESTROYS: 



none 

Carry set if motor was off, cleared otherwise. 

AX, CX 



f motor on 

mov 

mov 

mov 

shl 

test 

jnz 

mov 

mov 

mov 

shl 

or 

or 

mov 

out 

stc 

f _mo_ret : 

ret 
f motor on 



proc near 

motor count, OFFh 

cl,f_drive 

al,1 

al.cl 

al,motor_status 

f mo ret 

motor status, al 

ah,cl 

cl,4 

al.cl 

al.OCh 

al,ah 

dx,f motor port 

dx,al 



max. time for motor, 
drive. 

mask for motor status, 
test always clears carry, 
already running, 
set correct bit. 
drive into AH. 

motor on bit to high nibble, 
set bits 2 & 3 (0000 1100). 
drive bits ( & 1). 

turn on the motor, 
motor was off indicator. 



endp 



Read DASD type 
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F5EB 




F5EB 


E8 F603 R 


F5EE 


E8 F5F6 R 


F5F1 


FE CO 


F5F3 


E9 ECC2 R 


F5F6 





c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



This routine reads the motherboard switches to determine 
what type of drive is installed, (value returned from this 
routine in AL, exchange to AH made after f io ret). 

Returns - not used 

1 - low density drive (48tpi) 

2 - high density drive (1.2Mb) 



f_dtype proc 
call 
call 
inc 
jmp 

f_dtype endp 



near 

f getdrv 

f drvswitch 

al 

f io ret 



get drive bit in bl% 
get switch info% 
get return info% 
cmd over% 



; Routine checks the hardware switches for the type of drive 

; being used. The fdu-parameter table (INT1EL0CN) is changed 
; as is appropriate. 

; (commented out because DOS[ibmbios] adjusts the table internally) 



; f setparms 
; ~ call 
; mov 

; pUSh 
; PUSh 

; xor 
; mov 

; assume ds : absO 

; POP 

; test 
; jnz 
; or 



proc near 

f drvswitch 

bl,f_head 

ds 

ax 

ax, ax 

ds,ax 



ax 

bl,80h 
f setslow 
al,al 
f setslow 



get drive type in al% 

get info b4 change segment% 



test media/drive mismatch?% 
yes, use 320kb(48tpi) info% 
else use drive(same as media) info% 
jmp if 48tpi drive% 



; same parms for now% 



; mov 
; jmp 

;f SetSlOW : 

; mov 
; f setdone: 
; assume ds:data 

; POP 

; ret 
; f setparms 



word ptr INT1EL0CN, offset fd_12parms 
f setdone 

word ptr INT1EL0CN, offset fd parms 



ds 



12Mb drive% 



48 tpi drive% 



endp 



get the configuration switch for the fdu and 
return it in the LSB of al. 
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F5F6 




F5F6 


E4 67 


F5F8 


F6 46 00 01 


F5FC 


75 02 


F5FE 


DO C8 


F600 




F600 


24 01 


F602 


C3 



F603 




F603 


32 FF 


F605 


8A 5E 00 


F608 


80 E3 01 


F60B 


C3 


F60C 





F60C 
F60C 
F60F 
F611 
F613 
F618 
F618 
F61B 
F620 
F622 
F626 



8A 46 03 
3C 01 

74 05 

C6 06 0041 R 00 

E8 F603 R 

80 BF 0092 R 00 

75 08 

8A 87 0090 R 
88 87 0092 R 



C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



= 48 tpi 

1 = 96 tpi / 1.2Mb 



f drvswitch 
in 

test 
jnz 
ror 

f cv_dr : 

and 
ret 

f drvswitch 



proc near 

al,sys_conf_b 

byte ptr f drive, 1 

f_cv_dr 

al,1 

al,1 

endp 



switch port 
select drive bit% 
jmp if drive 1% 
shift DrO into LSB% 

blow off high 7 bits 



f getdrv 

Routine gets the input drive parm and returns with 
the LSB (drive number) in bl. 



f getdrv 



xor 
mov 
and 
ret 



f getdrv 



proc near 

bh,bh 

bl, f drive 

bl,1 

endp 



get drive bit 



f nustate 

Routine sets the original state if this is the first attempt 
at an operation. The new transfer rate is set. A delay is taken 
if the motor is already on. (A test for track number <40 could 
be made here [f head setting also needed if so]. 



f nustate 
mov 
cmp 
jz 
mov 

f_notstat: 
call 
cmp 
jnz 
mov 
mov 



proc near 

al 7 f command 

al,1 

f notstat 

diskette status, 

f getdrv 

diskstate[bx+2],0 
f nu cont 
al,diskstate[bx] 
diskstate[bx+2],al 



hold present cmd% 
test for status cmd% 
skip for status% 
prepare for new attempt% 

get drive number in bl% 
test for 1st attempt% 
jmp if its a retry% 

; store original state% 
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F62A 

F62A E8 E93A R 

F62D C3 
F62E 



F62E 



F62E 

F62E 1E 

F62F 33 CO 

F631 8E D8 



F633 


C5 36 0078 R 


F637 


8A 00 


F639 


1F 


F63A 




F63A 


C3 



F63B 



f nu cont: 
call 

ret 
f nustate 



f setrate 



endp 



; set transfer rate% 



Get specified byte from fdu parameter table (f_get_var) 
INPUT: BX parameter number (0 - 10) 
OUTPUT: AL The requested byte. 
DESTROYS: AH 



f get var 



proc 



near 



f gvok: 



mov 


al,f head 


and 


al,80h 


jz 


f gvok 


cmp 


bl,5 


jnz 


f gvok 


mov 


al,23h 


jmp 


f gvdone 


push 


ds 


xor 


ax, ax 


mov 


ds,ax 


assume 


ds : abs0 


Ids 


si,dword ptr [intlElocn] 


mov 


al, [bx+si] 


pop 


ds 



; get media info% 

; media-drive match% 
; test gap parm% 

; return it% 



assume ds : data 



segment 

tell assembler seg 0: 

DS:SI points to table 

tell assembler seg 40: 



f gvdone: 



; /o 



ret 



f get var 



endp 



NEC ready (f_nec_rdy) 

INPUT: 



OUTPUT: 



none 

AL 
DX 



Main Status Register byte. 
Points to port 3F4h 
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C 
C 
C 
C 
C 
C 
C 


; DESTROYS: 


F63B 






f nee rdy proc near 


F63B 51 






push ex 


F63C 33 


C9 




C 


xor ex, ex 


F63E 






C 


f nr1: 


F63E BA 


03F4 




C 


mov dx,f nee status ; Main status register (3F4h) 


F641 EC 






C 


in al,dx 


F642 A8 


80 




C 


test al,080h ; ROM 


F644 75 


0A 




C 


jnz f nr ret ; NEC is ready. 


F646 E2 


F6 




C 


loop f nr1 


F648 C6 


06 0041 


R 80 


c 


mov diskette status, tine out 


F64D E9 


ECC2 R 




c 


jmp f io ret ; Took too long to respond. 


F650 






c 


f nr ret: 


F650 59 






c 


pop ex 


F651 C3 






c 
c 
c 
c 
c 
c 
c 


ret 


F652 






f nee rdy endp 








; Wait for NEC to interupt on completion of execution phase or 








c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


; time out if NEC never interupts (f wait for nee). 








; INPUTS: none 








; OUTPUTS: 


F652 






f wait for nee proc near 


F652 FB 






sti ; enable interupts 


F653 51 






c 


push ex 


F654 B9 03E8 




c 


mov ex, 1000 ; wait a while 


F657 






c 


w nee: 


F657 F6 


06 003E 


R 80 


c 


test seek status, 80h ; test MSB (int flag) 


F65C 75 


0D 




c 


jnz w nee ret 


F65E E8 


EF4C R 




c 


call f wait one ms 


F661 E2 


F4 




c 


loop w nee 


F663 C6 


06 0041 


R 80 


c 


mov diskette status, time out 


F668 E9 


ECC2 R 




c 


jmp f io ret 


F66B 






c 


w nee ret: 


F66B 80 


26 003E 


R 7F 


c 


and seek status, 07Fh ; clear MSB. 


F670 59 






c 


pop ex 


F671 C3 






c 
c 
c 
c 
c 
c 
c 


ret 


F672 






f wait for nee endp 








; chkspeed 
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F672 
F672 
F677 
F67A 
F67B 
F67C 
F67E 
F680 
F681 
F684 
F684 
F685 
F685 
F686 



2E: 8E 1E E538 R 

BE 0042 R 

46 

AC 

A8 01 

74 04 

F9 

EB 02 90 

F8 

C3 



F686 

F686 E8 F652 R 

F689 B4 08 

F68B E8 F6C5 R 

F68E E9 EDF8 R 

F691 

F691 



F691 
F694 



E8 F5C6 R 
73 1A 



F696 BO 02 
F698 8A C8 



C 
C 
C 
C 
C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 



this routine checks the error status associated with the 
previous operation. If the bad-addr-mark error was found 
a speed change will be made. Otherwise the error is taken 
as valid and not retry is made. 

OUTPUT: CY=0, no error-> no retry, speed ok. 

CY=1, speed error -> retry at other speed 



chkspeed 

mov 

mov 

inc 

lodsb 

test 

jz 
stc 

jmp 
f speedok: 
clc 

f CS OUt: 

ret 
chkspeed 



proc near 

ds,word ptr cs : [set ds word] 

si, offset nee status 

si 

al,01h 
f_speedok 

f cs out 



endp 



Sense Interrupt Status (f sis). 

INPUT: none 

OUTPUT: 

DESTROYS: 



f sis proc 



near 



call f_wait_for nee 

mov ah,f snsint cmd 

call f_put_byte 

jmp f_get_byte 



f_sis endp 

f wdata proc near 



call 


f motor on 


jnc 


f wd1 


mov 


al,2 


mov 


cl.al 



get segment% 
get buffer% 

point to ST1 of error info% 
get error info from DS:SI% 
check for addr-mark error% 
zeros for no error% 
flag error% 
done% 

no error% 



no return on error, 
end of command phase, 
no return on error. 



sets carry if motor was off. 
motor was on, skip delay. 

assume slow motor bit% 
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F69A 
F69D 
F69F 
F6A2 
F6A5 
F6A7 



F6AB 
F6AE 



F6C5 

F6C5 
F6C8 



BA 007D 
D3 E2 
BB 00OA 
E8 F62E R 
32 E4 
F7 E2 



F6A9 8B C8 
F6AB 



E8 EF4C R 
E2 FB 



F6B0 

F6B0 80 0E 003F R 80 

F6B5 BO 4A 

F6B7 E9 ED77 R 
F6BA 



F6BA 




F6BA 


DO CO 


F6BC 


DO CO 


F6BE 


24 03 


F6C0 




F6C0 


BA 0065 


F6C3 


EE 


F6C4 


C3 


F6C5 





E8 F63B R 
A8 40 



mov 
shl 
mov 
call 
xor 
mul 
mov 
f wd loop: 
call 
loop 



f Wd1: 



or 
mov 



dx,125 
dx,cl 
bx,10 
f get var 
ah, ah 
dx 
ex, ax 

f wait one ms 
f wd loop 



motor status, 080h 
al,04Ah 



125 ms delay to start with. 

125 x 4 

motor start delay parameter. 

returns param. in AL. 

for good measure. 

AX has total delay 



set high bit, indicate write. 
DMA mode byte: channel 2, 
single mode, read transfer 



jmp f rw common 
f wdata endp 



f_setff 

routine writes to the fdu rate flip-flops 
(called in setrate and f check_valid.) 

INPUT: AL - parm to determine rate: eg. diskstate[] ,lastrate[] 



move onto low bits% 

move% 

hold relevant bits% 



f setff proc near 

rol al,1 

rol al,1 

and al,3 

ENDIF ; non-beta units use 2 bits for data transfer rate% 
f dorate: 

mov dx,65h ; rate port% 

out dx,al ; set rate% 

ret 
f setff endp 



Send a byte to the NEC controller (f_put_byte) 
INPUT: AH byte to output. 
OUTPUT: 



f put byte 



proc 



call f nee rdy ; returns MSR byte in AL. 

test al,40h ; direction bit. 

We could put a little more intelligence here to determine why the NEC balked. 
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F6CA 75 OC 

F6CC 42 

F6CD 8A C4 

F6CF EE 

F6D0 51 

F6D1 B9 0002 

F6D4 

F6D4 E2 FE 

F6D6 59 

F6D7 

F6D7 C3 

F6D8 

F6D8 C6 06 0041 R 20 

F6DD E9 ECC2 R 

F6E0 

F6E0 



F6E0 



F6E0 



F6E0 BE F6E8 R 
F6E3 E8 E540 R 
F6E6 EB FE 



F6E8 



F703 



52 6F 6D 20 42 41 

53 49 43 20 6E 6F 
74 20 61 76 61 69 
6C 61 62 6C 65 2C 
20 0D OA 

50 72 65 73 73 20 
72 65 73 65 74 20 
74 6F 20 72 65 2D 
62 6F 6F 74 2E 2E 
2E OD OA OA 00 



F720 
F720 



waste: 



f pb ret: 
ret 

f pb_erret: 
mov 
jmp 



jnz 


f pb erret 


inc 


dx 


mov 


al,ah 


out 


dx,al 


push 


ex 


mov 


ex, 2 


loop 


waste 


pop 


ex 



wrong direction. 
NEC data port 3F5h 



save ex % 

need to insure atleast% 

12 microseconds between % 

this out and next in done% 

by f nee rdy, so waste some time% 

restore ex % 



diskette_status, fdc_error 
f io ret 



f put byte endp 

code ends 
include int18.asm 



Filename: 



int18.src 



code segment public 'ROM' 

assume cs:Code, ds : nothing, es : nothing, ss : nothing 

basic trap proc near 



mov si, off set trapjness 
call DRomString 
jmp $ 



; CS:SI points to string. 
; loop forever. 



trap mess 



db 



'Rom BASIC not available, \CR,LF 



db 



'Press reset to re-boot. 



,CR,LF,LF,NUL 



basic trap 



endp 



code ends 
include pwrup4.asm 
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F720 



F720 



F720 BO 04 
F722 E6 08 
F724 90 



F725 E6 0D 



F727 BO FF 

F729 E6 01 

F72B 90 

F72C E6 01 



F72E B0 58 
F730 E6 0B 



F732 BO 00 
F734 E6 08 



C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



Filename: 



pwrup4.src 



This module contains the i fatal routine for powerup 
diagnostics. 



code segment public 'ROM' 

assume cs:Code, ds : nothing, es : nothing, ss : nothing 



; Fatal [ 


Error Routine. 










; Input: 


CS:Si 

if ah 


= points to offset 
<> 0, do DHexByte of 


of 
ah 


failing 


error 


message 




if ah 


= 0, do nothing (just print error). 




; OUtpUt 


None. 












Trash: 


al, dx 


, & si destroyed. 











mov 


al,dma cmd disable 


out 


dma command, al 


nop 





i fatal proc near 

assume cs : code, ds : nothing, es : nothing, ss : nothing 

; Disable 8237A p dma Controller. 

; disable p dma controller command 
; chip needs time% 

; Send a 'master clear' to 8237 p dma Controller. 

out dma_master_clr,al ; send master clear port any garbage 

; Load 64k (0FFFFh+1) count for RAM refresh p dma controller channel. 



low byte of count for 64k RAM refresh 

chip needs time% 

high byte of count for 64k RAM refresh 



; Load mode for RAM refresh p dma controller channel: channel 0, read, auto- 
; initialize, increment, single mode. 



mov 


al.OFFh 


out 


dma count 0,al 


nop 




out 


dma count 0,al 



mov 
out 



al,dma mode_0 
dma mode,al 



; mode for RAM refresh 



Enable p_dma controller: memory-to-I/0, controller enable, normal, fixed 
priority, late write, and DREQ/~DACK. 



mov al,dma cmd enable 
out dma command, al 



enable p dma controller 



The master clear command above has masked off all channels. Now, we 'unmask' 
the RAM refresh dma mask bit. p dma RAM refresh begins for the first time! 
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F736 BO 00 
F738 E6 0A 



F73A BO 74 

F73C E6 43 

F73E BO 13 

F740 E6 41 

F742 32 CO 

F744 E6 41 



F746 8C D7 

F748 8B EC 

F74A BA 0030 

F74D 8E D2 

F74F BC 0100 

F752 50 



F753 E8 E1A6 R 

F756 E8 E164 R 

F759 E8 EOAO R 

F75C 58 

F75D E8 E540 R 

F760 BE D9CC R 

F763 E8 E540 R 

F766 OA E4 

F768 74 08 

F76A E8 E56C R 

F76D 8A C4 

F76F E8 E589 R 

F772 

F772 E8 E55F R 



mov 
out 



al,dma unmask 
dma mask bit,al 



; turn on RAM refresh channel 



Program p 8253 1 of i8254 p timer to proper value for RAM refresh. 



select p dma refresh counter 



mov 


al,t1cmd 




out 


p 8253 Ctrl, 


al 


mov 


al,t1count 




out 


p 8253 1,al 




xor 


al,al 




out 


p 8253 1,al 





load p dma refresh count 



assume cs : code, ds : nothing, es : nothing, ss : stack ram 
; save stack pointer 



mov 


di,ss 


mov 


bp,sp 


mov 


dx, stack seg 


mov 


ss,dx 


mov 


sp,100h 



push ax ; save error code 

Initialize & Disable 8259A Programmable Interrupt Controller, 
call i pic init 



; Install Vector Table. 

call i vector 
; Initialize Video. 

call i d_init 
; Display error message. 

pop ax 

call DRomString 

mov si, cs: (offset fail m) 
call DRomString 



set intlOlocn = code seg : v io, and 
set intlDlocn = code seg : v parms. 



or 



ah, ah 

i fatal ret 



call DColon 

mov al,ah 

call DHexByte 

i fatal ret: 

"call DCrLf 



restore error code 
display string at cs : si. 

display fail message. 

ah = 0? 

if so, no arguments 

display a colon 

display error code 
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F775 BA 0378 

F778 EC 

F779 34 3F 

F77B EE 



F77C 


8E D7 


F77E 


8B E5 


F780 


F4 


F781 




F781 





F781 



F841 



F841 



F841 FB 

F842 1E 

F843 B8 0040 

F846 8E D8 



F848 A1 0013 R 

F84B 1F 

F84C CF 

F84D 



C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



; Output fatal error status for manufacturing tests 



mov 


dx,378h 


in 


al,dx 


xor 


al T 03fh 


out 


dx.al 



mov 

mov 

; ret 

hit 

i fatal endp 

code ends 
include mem. asm 



parallel port address 
read last checkpoint value 
extract checkpoint number from status 
output " Not OK - number" 



assume csrcode, ds : nothing, es : nothing, ss : nothing 

ss,di ; restore stack pointer 

sp,bp 



Filename: mem.src 

This module includes INT 12h, Hh, & 15h. 



code segment public 'ROM' 

assume cs : code, ds : nothing, es : nothing, ss : nothing 



INT 12h -- memory size detect 



ORG 



0F841h 



m size proc near 

assume csrcode, ds : nothing, es : nothing, ss : nothing 

sti 

push ds 

mov ax,data_seg 

mov ds,ax 

assume csrcode, ds:data, es : nothing, ss : nothing 

mov ax, word ptr ds : [memory size] 

pop ds 

iret 

m size endp 
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C 


















C 


; INT 11h 


-- equipment check 








C 


















C 


; AX returns the following values: 








C 












C 




40:11 40:10 








C 


; I 


II II I I II 








C 


; Ino.l I 


IGa I no. I of I I I no. I of I vildeolplalnarl 2 Idi I 








C 


; I I Of I 


- I me I I com I m I - I fldusl tylpe I mem lory I 8 I ski 








C 


; Iprnltrsl 


I I I polrtsl I I I I I I I 7 I I 








C 


i _ 


__i i i i i i i i 




; I 


ii || | | | — | 








C 












C 


; No. of printers 0-3 








C 


; Game = 1 = 


> game adapter attached 








C 


; No. of comm ports 0-7 








C 


; No. of fdu 


's => 00 1 fdu 








C 




01 2 fdu 








C 




10 3 fdu 








C 












C 


; Video type 


=> 01 Monochrome 40 cols 








C 




10 Monochrome 80 cols 








c 




11 Monochrome test 








c 












c 


; Planar memory always 1 








c 












c 


; 287 = 1 => 


287 attached 








c 












c 


; Disk always 


1 








c 












c 












c 






F84D 






c 
c 


ORG 


0F84Dh 


F84D 






C r 


n equip proc 


near 








C 


assume 


cs:Code, ds: nothing, es : nothing, ss : nothing 








C 






F84D 


FB 




C 


sti 




F84E 


1E 




C 


push 


ds 


F84F 


B8 


0040 


C 


mov 


ax, data seg 


F852 


8E 


D8 


c 
c 


mov 


ds,ax 








c 


assume 


cs:COde, ds:data, es : nothing, ss : nothing 








c 






F854 


A1 


0010 R 


c 


mov 


ax, word ptr ds : [switch bits] 


F857 


1F 




c 
c 


pop 


ds 


F858 


CF 




c 
c 


iret 




F859 






C n 

C 

C 


i equip endp 
















C 


INT 15h 


— cassette 1/0 








C 


















C 






F859 






C 


ORG 


0F859h 
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F859 



F859 EA 

F85A E6F5 R 

F85C F000 
F85E 

F85E 



F85E 



F85F 






F85F 






F85F 


50 




F860 


E4 


62 


F862 


24 


CO 


F864 


74 


OE 


F866 


BE 


E5FB R 


F869 


DO 


CO 


F86B 


72 


03 


F86D 


BE 


E618 R 


F870 






F870 


E8 


E540 R 


F873 


F4 




F874 






F874 


58 




F875 


CF 




F876 






F876 







c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



m_cass proc far 

assume cs.-code, ds: nothing, es : nothing, ss : nothing 



stc 

mov ah,86h 



error 



ret 
iret 

jmp 
db 
dw 
dw 
m cass endp 

code ends 
include nmi.asm 



word ptr cs : add_mem_code 

Oeah 

add mem code 

code seg 



Filename: 



nmi.src 



This module includes INT 02h. 



And ENABLE PARITY 



code segment public 'ROM' 

assume cs:COde, ds : nothing, es : nothing, ss : nothing 



INT 02h 



ORG 



0F85Fh 



n int proc near 



push ax 



in 
and 

jz 

mov 

rol 

jc 

mov 

call 
hit 

pop 
iret 



n_int endp 
code ends 



n 1: 



n out: 



al,ControlC 

al.OCOh 

n_out 

si, offset parityljn 

al,1 

n_1 

si, off set parity2 m 

DRomString 



High two bits indicate parity. 
Mask of low 6 bits. 
It wasn't a parity interrupt! 
System board message. 



Expansion board message. 
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F876 



include boot2.asm 

Filename: boot.src 
This module includes INT 19h. 



code segment public 'ROM' 

assume cs:Code, ds : nothing, es : nothing, ss : nothing 



INT 19h — Cold boot routine: 

This code reads Track 0, Side 0, Sector into memory at 
0000:7C00 and iret's into the secondary boot-strap loader 



Note: The stack looks like this at exit! ! ! ! 



return fsw flags 

return cs segment 

return ip offset 

saved si, bp 



High Address 
<-- sp (at entry & exit) 



Output: 
(DL) 



(DH) 
(CH) 
(CL) 

(AH) 
(AL) 

(ES:BX) 
(DS:BX) 



= Driver Number 



Head Number 
Cylinder Number 
Sector Number 



<— sp after INT 19h trap 

<-- sp at loading of return address 
Low Address 



OOh -> Floppy Drive (A 
01h -> Floppy Drive (B ^ 
80h -> Fixed Disk (C:). ] 

These three parameters will 
specify the booted partition 
in the case of the fixed disk. 



= Successful status = 0. 

= Number of Sectors read [in order to read 512 bytes. ] 

= Address of the transfer [0000:7C00] 



(CS:IP) = Address of entry point [0000:7C00] 

(SS:SP) 



(IF) 



= Stack Segment and Pointer are left intact from the INT 
19h invocation for multi-tasking environments. 

= The interrupt enable flag is left intact from the INT 
19h invocation for multi-tasking environments. 



Trash: bp destoryed. (si, di, & bp preserved.) 
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C 
C 
C 


bt int 


proc 


near 
















C 
C 
C 




assume 


csrcode, 


ds 


nothing 


es 


: nothing, 


ss: nothing 


F876 


FB 




sti 














F877 


55 


C 




push 


bp 










; save BP & SI 


F878 


56 


C 
C 
C 




push 


si 


















assume 


ds:data 










; reset master table ptr to ROM 


F879 


2E: 8E 1E E538 R 


C 




mov 


ds,word 


ptr 


cs:[set 


ds 


word] 


; satisfy assumption 






C 


;;;EGA2 fix 


















C 




mov 


word ptr 


ds 


[master 


tbl 


ptr+0000h],cs: (offset mastab) 






C 
C 
C 




mov 


word ptr 


ds 


[master 


tbl 


ptr+0002h],cs 


F87E 


BE D935 R 




mov 


si ? cs: (offset bt m) 






; boot strap message 


F881 


E8 E540 R 


C 
C 

C 




call 


DRomString 








; print banner 


F884 


32 DB 




xor 


bl,bl 










; disable error message blinking 


F886 


53 


C 

c 
c 




push 


bx 










; save blink status 








assume 


ds : absO, 


es 


absO 








F887 




c 


bt 0: 














; boot strap outer loop 


F887 


33 CO 


c 




xor 


ax, ax 










; AX = absO seg. 


F889 


8E D8 


c 




mov 


ds,ax 










; satisfy assumptions 


F88B 


8E CO 


c 
c 
c 
c 
c 




mov 


es T ax 
















; Reset 


fd parms table vector. 








F88D 


C7 06 0078 R EFC7 R 




mov 


word ptr 


dS: 


[int1Elocn+( 


D],CS:(Of 


fset fd parms) 


F893 


8C 0E 007A R 


c 
c 
c 
c 
c 




mov 


word ptr 


dS: 


[int1Elocn+2],cs 








; Initialize retry loop. 












F897 


BD 0003 




mov 


bp,3 










retry counter 


F89A 




c 
c 
c 
c 
c 


bt i: 














boot retry inner loop 






; Initialize the drive. 












F89A 


33 CO 




xor 


ax, ax 










AX = 0. 


F89C 


8B D8 


c 




mov 


bx,ax 










BX = 0. 


F89E 


8B C8 


c 




mov 


ex, ax 










CX = 0. 


F8A0 


8B DO 


c 




mov 


dx,ax 










DX = 0. 


F8A2 


CD 13 


c 




INT 


13h 












F8A4 


72 OA 


c 
c 
c 
c 
c 




jc 


bt nxt 










try again, if error 






; Read 


the boot 


sector. 












F8A6 


B8 0201 




mov 


ax,0201h 










read one sector 






c 
















bl = 0. 


F8A9 


B7 7C 


c 
c 




mov 


bh,7Ch 










xfer address = ES:BX = 0:7C00 
ex = 0. 


F8AB 


41 


c 
c 
c 




inc 


ex 










track 0; sector 1 

dx = 0. 

head ; drive 
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F8AC 


06 


C 
C 






push 


es 


; save return registers 


F8AD 


CD 13 


C 






INT 


13h 


; BX,CX,DX,SI,DI,BP, & DS saved 


F8AF 


07 


C 
C 
C 






pop 


es 


; restore return registers 


F8B0 




bt 


nxt 








F8B0 


73 2E 


C 
C 
C 






jnc 


bt ok 


; jump if no error during read 


F8B2 


5B 






pop 


bx 


; get blink status 


F8B3 


0A DB 


C 






or 


bl,bl 


; have 3 retries been completed? 


F8B5 


74 0E 


C 
C 
C 






jz 


bt dec 


; jump if no 


F8B7 


BE D94F R 






mov 


si, cs: (offset bt merr) 


; blink error message on 


F8BA 


78 03 


C 






js 


bt blnk 


blink state from BL above 


F8BC 


BE D974 R 


C 
C 
C 






mov 


si, cs: (offset bt spaces) 


blink error message off 


F8BF 




bt 


blnk 








F8BF 


E8 E540 R 


C 






call 


DRomString 


blink error message 


F8C2 


80 F3 80 


C 
C 
C 






xor 


bl, 10000000b 


toggle blink state 


F8C5 




bt 


dec 








F8C5 


53 


c 






push 


bx 


resave blink status 


F8C6 


4D 


c 






dec 


bp 


decrement retry count 


F8C7 


75 D1 


c 
c 
c 






jnz 


bt i 


and, try again 


F8C9 


5B 






pop 


bx 


get blink status 


F8CA 


80 CB 01 


c 






or 


bl, 1 


enable error message blinking 


F8CD 


53 


c 






push 


bx 


save new status 


F8CE 


A1 0060 R 


c 






mov 


ax, word ptr [int18locn] 




F8D1 


8D 1E F6E0 R 


c 






lea 


bx,cs: basic trap 




F8D5 


3B D8 


c 






cmp 


bx,ax 




F8D7 


5B 


c 






pop 


bx 




F8D8 


74 04 


c 






je 


bt again 




F8DA 


CD 18 


c 






int 


18h 




F8DC 


EB 02 


c 
c 
c 






jmp short bt ok 




F8DE 




bt 


again: 






F8DE 


EB A7 


c 
c 
c 






jmp 


bt ; 


and try again, for now. 


F8E0 




bt 


ok: 








F8E0 


BE D974 R 


c 






mov 


si, cs: (offset bt spaces) ; 


blink error message off 


F8E3 


E8 E540 R 


c 






call 


DRomString 




F8E6 


5E 


c 






pop 


si ; 


discard blink status 


F8E7 


5E 


c 






pop 


si ; 


restore SI 


F8E8 


8B EC 


c 






mov 


bp,sp 




F8EA 


89 5E 02 


c 






mov 


word ptr ss : [bp+2],bx ; 


return IP = BX = 7C00h 


F8ED 


8C 46 04 


c 






mov 


word ptr ss : [bp+4],es ; 


return CS = ES = OOOOh 


F8F0 


5D 


c 






pop 


bp ; 


restore BP 


F8F1 


CF 


c 
c 
c 
c 
c 






iret 




return flags 


F8F2 




bt 


int 


endp 






F8F2 




code 


ends 










c 
c 


include 


calendar. asm 
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F8F2 



F8F2 



F8F2 


0000 


F8F4 


016E 


F8F6 


02DB 


F8F8 


0448 


F8FA 


05B5 


F8FC 


0723 


F8FE 


0890 


F900 


09FD 



F902 1F 

F903 1C 

F904 1F 

F905 1E 

F906 1F 

F907 1E 

F908 1F 

F909 1F 

F90A 1E 

F90B 1F 

F90C 1E 

F90D 1F 

F90E 



C 
C 
C 
C 
C 
C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



Filename: cal.src 

This module includes c read and c write of INT 1Ah. 



code segment public 'ROM' 

assume cs:Code, ds : nothing, es : nothing, ss : nothing 

c datal proc 

; Days per year. 

c dy_yr dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 



(0*366)+(0*365) 
(1*366)+(0*365) 
(1*366)+(1*365) 
(1*366)+(2*365) 
(1*366)+(3*365) 
(2*366)+(3*365) 
(2*366)+(4*365) 
(2*366)+(5*365) 



year = leap year 
year 1 = leap year 
year 2 = leap year 
year 3 = leap year 
year 4 = leap year 
year 5 = leap year 
year 6 = leap year 
year 7 = leap year 



; Days per month. 



c dy mo db 
db 
db 
db 
db 
db 
db 
db 
db 
db 
db 
db 

c datal endp 

IF G4T0D 



31 
28 
31 
30 
31 
30 
31 
31 
30 
31 
30 
31 



month 


= Jan 


month 1 


= Feb 


month 2 


= Mar 


month 3 


= Apr 


month 4 


= May 


month 5 


= Jun 


month 6 


= Jul 


month 7 


= Aug 


month 8 


= Sep 


month 9 


= Oct 


month A 


= Nov 


month B 


= Dec 



Read or Write Clock Calendar Device (c_read) 



Input: 



Output: 



ah = -1 Write Clock Calendar Device, then: 

bx = day (from 1-1 of leap year up to 12-31 of leap year+7) 

(0-2921) = (0-B69h) 

ch = hour (0-23) 

cl = minutes (0-59) 

ah = -1 implies date/time error 

ah = implies date/time OK 



Input: ah = -2 Read Clock Calendar Device, then: 

Output: bx = day (from 1-1 of leap year up to 12-31 of leap year+7) 
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F90E 



F90E 50 

F90F BA 0070 

F912 EC 

F913 

F913 BA 007C 

F916 E8 F96C R 

F919 8A E8 



F91B B2 7B 
F91D E8 F97F R 



F920 48 
F921 8B D8 



F923 E8 F97F R 



F926 48 



F927 8B DO 



C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



ch = 


hour 


cl = 


minutes 


dh = 


seconds 


dl = 


hundredths of seconds 



Trash: None. 



c read proc near 

assume cs : code 7 ds : nothing, es: nothing, ss : nothing 

; Save registers. 

push ax 

; Years. 



mov dx,70h 
in al,dx 



years: 

; mov 

mov 
; in 
; in 

call 

mov 
; Months. 



dx,7Fh 

dx,7Ch 

al,dx 

al,dx 

c_rBCD 

ch,al 



; clear data changed flag 

interrupts (years mod 8)% 

units year port% 
% 
% 

al = years 

; ch = saves year mod 8 



7Ch port = tens of mths for MM58274A chip% 



; mov 

mov 

call 



dec 



dl,07Ch 
dl,07Bh 
c rhex 



ax 



bx,ax 



dl = tens of months port = 7Ch% 
dl = tens of mths port, MM58274A chip% 
Input: dl = tens of mon.s port = 7Ch 
Output: ax = hex of months (1-12) 

dx = day of week port = 7Ah 
ax = map month (1-12) to month (0-11) 

bx = saves month (0-11) 



Days. 



dec dx ; dl = tens of days port = 79h 

dx was dec in c rhex to 79 already, hence comment out original dec dx inst% 
call c rhex ; Input: dl = tens of days port = 79h 

Output: ax = hex of days (1-?) 

dx = tens of hours port = 77h 
dec ax ; ax = map days (1-?) to days (0-?) 

Calculate Day (ax has day). 



mov dx,ax 
Calculate Month (bx has month). 



; dx = day 
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F929 4B 

F92A 78 08 

F92C 

F92C E8 FA41 R 

F92F 03 DO 

F931 4B 

F932 79 F8 

F934 



F934 33 DB 

F936 8A DD 

F938 D1 E3 

F93A 2E: 03 97 F8F2 R 

F93F 8B DA 



F941 B2 77 
F943 E8 F97F R 



F946 8A E8 

F948 E8 F97F R 

F94B 8A C8 

F94D E8 F97F R 

F950 8A F0 

F952 52 



F953 E8 F96C R 

F956 8A E0 

F958 32 CO 

F95A E8 F989 R 

F95D 50 

F95E BA 0070 



C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



c rmlp : 



dec 


bx 


js 


c rmO 


call 


c gdays 


add 


dx,ax 


dec 


bx 


jns 


c rmlp 



c rmO: 



Calculate Year (ch has month). 



xor 
mov 
shl 
add 

mov 



bx,bx 
bl T ch 
bx,1 



; previous month 

; jump if it was zero 



get days per month 

dx = day + current month 

previous month 



zero case 

dx = day + month 



clear bh 

get year mod 8 

make word index 



dx,word ptr cs : [bx+c dy yr] 



bx,dx 



Hours. 



mov dl,077h 
call c rhex 



mov ch T al 
Minutes. 

call c_rhex 

mov cl,al 
Seconds. 

call c rhex 

mov dh,al 

push dx 

Hundredths of Seconds. 



call c_rBCD 

mov ah,al 

xor al,al 

call c_BCD2hex 

push ax 

mov dx,70h 



; bx = day + month + year 



dl = tens of hours port = 77h 

Input: dl = tens of hours port = 77h 

Output: ax = hexadecimal of hours 

dx = tens of min.s port = 75h 
ch = hours 



dl = tens of minutes port = 75h 

Input: dl = tens of min.s port = 75h 

Output: ax = hexadecimal of minutes 

dx = tens of sees port = 73h 
cl = minutes 



dl = tens of seconds port = 73h 

Input: dl = tens of sees port = 73h 

Output: ax = hexadecimal of seconds 

dx = tenths of sees port = 71h 
dh = seconds 

save seconds (dh) 



dl = tenths of seconds port = 71h 
al = tenths of seconds 
move tenths of seconds to high byte 
ax = BCD of hundredths of seconds 
ax = hex of hundredths of seconds 

; ; ; save ax 

; ; ; read the data changed flag 
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F961 EC 

F962 A8 08 

F964 58 

F965 5A 

F966 75 AB 

F968 8A DO 



F96A 


58 


F96B 


C3 


F96C 


51 


F96D 


B9 0003 


F970 


32 F6 


F972 


EC 


F973 


24 OF 


F975 


3C 0A 


F977 


72 04 


F979 


E2 F7 


F97B 


B0 01 


F97D 




F97D 


59 


F97E 


C3 



F97F 



F97F 



F97F E8 F96C R 

F982 8A EO 

F984 4A 

F985 E8 F96C R 

F988 4A 



C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



in 


al,dx 


test 


al,8h 


pop 


ax 


pop 


dx 


jnz 


years 



mov 



dl,al 



Restore registers. 



pop ax 
ret 

c_rBCD: push ex 

mov ex, 3 

xor dh,dh 



c_rBlp : in 
and 
emp 
jb 



al,dx 
al.OFh 
al,10 
c rBret 



loop c rBlp 
mov al,1 



c rBret: 



pop 
ret 



ex 



c_read endp 

ENDIF 
ENDIF 



again 

if bit is set then reread the chip 
reset ax 
restore seconds (dh) 



dl = hex of hundredths of seconds 



save ex 

try 3 times only! ! ! 

clear dh 

get the byte 
clear high nibble 
is it less than 10? 
if so, return 

else, try again 

if timeout, return one. 



restore ex 



; Convert 


to Hex (c rhex) 






; Inputs 


both 


BCD bytes and converts to hexdecimal 


word. 


; Input: 
; OUtpUt: 


dl = 
ax = 
dx = 


pointer to tens 
hexadecimal wore 
pointer to tens 


of whatever port 
(ah = 0) 
of previous port (dh 


= 0) 


Trash: 


None 









c rhex proc near 

assume cs:Code, ds : nothing, es : nothing, ss : nothing 



call c_rBCD 

mov ah.al 

dec dx 

call c_rBCD 

dec dx 



in from tens of whatever 

move tens of whatever to high byte 

dx points to units of whatever port 

in from units of whatever 

dx points to tens of previous port 
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F989 



F989 



F989 


8A F4 


F98B 


DO E6 


F98D 


DO E6 


F98F 


02 F4 


F991 


DO E6 


F993 


02 C6 


F995 


32 E4 


F997 


32 F6 


F999 


C3 



F99A 



F99A 



F99A 


80 F9 3C 


F99D 


72 01 


F99F 


C3 


F9A0 




F9A0 


80 FD 18 


F9A3 


72 01 



; jmp short c BCD2hex 
c rhex endp 



fall through 



BCD to Hexadecimal (c_BCD2hex) 

Input: 

Output 



Trash: 



ah = high BCD digit 

al = low BCD digit 

ax = hexadecimal byte (ah = 0) 

dh = 

None. 



c BCD2hex 



proc near 

assume cs : code, ds: nothing, es : nothing, ss: nothing 



mov 
shl 
shl 
add 
shl 
add 
xor 
xor 
ret 



c_BCD2hex 
IF G4T0D 



dh,ah 

dh,1 

dh,1 

dh,ah 

dh,1 

al.dh 

ah, ah 

dh,dh 



endp 



dh = hi BCD digit 

dh = 2*(hi BCD digit) 

dh = 4*(hi BCD digit) 

dh = 5*(hi BCD digit) 

dh = 10*(hi BCD digit) 

al = 10*(hi BCD digit)+(low BCD digit) 

ax = 10*(hi BCD digit)+(low BCD digit) 

dh = 



Write Clock Calendar Device (c write) 



Input: 



Output: 



Trash: 



ah = 


-' 
















bx = 




day (from 1-1 of leap year up 


to 


12- 


-31 


of 


leap year+7) 


= 




(0-2921 


) = (0-B69h) 












ch = 




hour 


(0-23) 












cl = 




minutes 


(0-59) 












ah = 


-1 


implies 


date/time error 












ah = 





implies 


date/time OK 












None. 



















c write proc near 

assume cs:COde, ds : nothing, es : nothing, ss : nothing 



Check for errors. 



labell: 



cmp 

jb 

ret 

cmp 
jb 



cl,60 
labell 



ch,24 
label2 



cl = minutes (0-59) 
jif within the range% 
return (c werr too far) % 

ch = hour (0-23) 
jif within the range% 
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F9A5 


C3 


C 




ret 




; return (c werr too far) % 


F9A6 




C 


Iabel2 






;% 


F9A6 


81 FB 0B6A 


C 




cmp 


bx,(2*366)+(6*365) 


; bx = day from leap year mod 8 


F9AA 


72 01 


C 




jb 


label3 


;% 


F9AC 


C3 


C 
C 




ret 




; return (c werr too far) % 
; = (0-2921) = (0-0B69h) 


F9AD 




C 
C 
C 
C 
C 


Label3 






;% 






Save 


registers. 




F9AD 


50 




push 


ax 




F9AE 


53 


C 




push 


bx 




F9AF 


51 


c 




push 


ex 




F9B0 


52 


c 
c 
c 




push 


dx 








Initialize 


and Stop Clock. 








c 


% £ £ * % % :£ * :fc * * * % * ^ * ^c * :£ :fc * * % ^c * + % % *. if. ip. * % * % 4: % * ■% % % % % % ^c % :fc :fc % % % :$: :fc % ^c % % :fc :f: ^c ^c % ^c ^c % % % ;fcO/ 






c 




xor 


ax, ax 


; ax = 0% 






c 




out 


70h,al 


; test only port = out of test mode% 






c 




out 


7Eh,al 


; stop/start port = stop clock% 






c 


*######****** #** *****#***#***** #^ 


F9B1 


B8 0005 


c 




mov 


ax, 5 


% 


F9B4 


E6 70 


c 




out 


70h,al 


interrupt stop, clock stop% 


F9B6 


33 CO 


c 




xor 


ax, ax 


% 


F9B8 


E6 7F 


c 




out 


7Fh,al 


no interrupts programmed% 


F9BA 


B8 0005 


c 




mov 


ax, 5 


% 


F9BD 


E6 70 


c 
c 




out 


70h,al 


clock is out of test mode, halted, % 
clock setting register is selected% 


F9BF 


E6 7F 


c 
c 
c 
c 




out 


7Fh,al 


select 24 hour mode, and LEAP YEAR% 
counter 1 just for now, the LEAP YEAR% 
counter gets set properly when year% 
is calculated (see c wylp : label)% 






C ; 


Seconds 






F9C1 


B2 72 


c 




mov 


dl,072h 


dl= units of seconds port = 72h 


F9C3 


BO 00 


c 




mov 


al,0 


al=seconds 


F9C5 


E8 FA30 R 


c 
c 

C ; 

c 

C ; 




call 


c whex 








Minutes. 












mov 


dl,074h 


dl = units of minutes port = 74h 


F9C8 


8A C1 


c 




mov 


al,cl 


al = minutes (0-59) 


F9CA 


E8 FA30 R 


c 
c 
c 
c 

C ; 

c 


Hours 


call 


c whex 


Input: al = hexadecimal of minutes 

dl = units of min.s port = 74h 

Output: ax = trash 

dx = units of hours port = 76h 

dl = units of hours port = 76h 


F9CD 


8A C5 


c 




mov 


al,ch ; 


al = hours (0-23) 


F9CF 


E8 FA30 R 


c 
c 
c 
c 




call 


c whex ; 


Input: al = hexadecimal of hours 

dl = units of hours port = 76h 

Output: ax = trash 

dx = units of days port = 78h 






C ; 

c 
c 


Calculate Year. 




F9D2 


8B D3 




mov 


dx,bx ; 


dx = day from leap year mod 8 
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F9D4 


BB 0010 


C 




mov 


bx,(8*2) 






; word index of year 


F9D7 




C 


c wylp 












F9D7 


4B 


C 




dec 


bx 








F9D8 


4B 


C 




dec 


bx 








F9D9 


2E: 3B 97 F8F2 R 


C 




cmp 


dx,word ptr 


CS: 


[bx+c dy yr] 


F9DE 


72 F7 


C 
C 
C 




jb 


c wylp 








F9E0 


2E: 2B 97 F8F2 R 




sub 


dx r word ptr 


CS: 


[bx+c dy yr] 


; dx = saves day of year 


F9E5 


D1 EB 


C 




shr 


bx,1 








bl = year mod 8 


F9E7 


8A EB 


C 
C 
C 




mov 


ch.bl 








ch = saves year mod 8 






; Calculate 


LEAP YEAR counter 


for 


clock setting register% 


F9E9 


B8 0004 


C 




mov 


ax T 4 








% 


F9EC 


3B C3 


C 




cmp 


ax,bx 








check if year is > 4% 


F9EE 


72 04 


C 




jb 


leapl 








jif less than 4 since 1984% 


F9F0 


2B C3 


C 




sub 


ax ? bx 








ax = year since 1984 modulo 4% 


F9F2 


8B D8 


C 
C 




mov 


bx,ax 








so that bx = modulo 4 LEAP% 
YEAR counter since 1984% 


F9F4 




C 


leapl: 












% 


F9F4 


8B C3 


C 




mov 


ax,bx 








% 


F9F6 


D1 E0 


C 




shl 


ax,1 








Shift LEAP COUNTER into pro-% 


F9F8 


D1 EO 


C 
C 




shl 


ax,1 








% 
bit position for clock reg% 


F9FA 


OC 01 


C 




or 


al,1 








set 24-hour mode% 


F9FC 


E6 7F 


C 

c 
c 
c 
c 




out 


7Fh,al 








set LEAP counter & 24-hour% 






; Calculate Days & Months. 








F9FE 


BB FFFF 




mov 


bx,-1 






; start at January 


FA01 




c 


c wmlp : 












FA01 


43 


c 




inc 


bx 






; next month 


FA02 


E8 FA41 R 


c 




call 


c gdays 






; get days per month 


FA05 


2B DO 


c 




sub 


dx,ax 








FA07 


73 F8 


c 
c 




jae 


c wmlp 






; bx = month (0-11) 


FA09 


03 C2 


c 
c 
c 
c 
c 




add 


ax,dx 






; ax = day (0-?) 






; Days. 












FAOB 


B2 78 




mov 


dl,078h 








dl = units of days port = 78h 


FAOD 


40 


c 




inc 


ax 








al = map days (0-?) to days (1-?) 


FAOE 


E8 FA30 R 


c 
c 
c 
c 




call 


c whex 








Input: al = hexadecimal of days 

dl = units of days port = 78h 

Output: ax = trash 

dx = day of week port = 7Ah 






c 


; For MM58274 


chip 7Ah is Units 


Months port 






c 
c 
c 


; Months. 
















Inc 


dx 






; dl = units of months port = 7Bh% 






c 


; comment out 


the above because 


7Ah 


is already units of months% 


FA11 


8B C3 


c 




mov 


ax,bx 








al = month (0-11) 


FA13 


40 


c 




inc 


ax 








al = map month (0-11) to month (1-12) 


FA14 


E8 FA30 R 


c 
c 
c 




call 


c whex 








Input: al = hexadecimal of months 

dl = units of mon.s port = 7Bh 
Output: ax = trash 
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FA17 8A C5 
FA19 E6 7C 



FA1B B8 0002 

FA1E E6 70 

FA20 B8 000B 

FA23 E6 7F 

FA25 33 CO 

FA27 E6 70 



FA29 


5A 


FA2A 


59 


FA2B 


5B 


FA2C 


58 


FA2D 


32 E4 


FA2F 




FA2F 


C3 



FA30 



C ; dx = leap year port = 7Dh 

C ; Leap Years. 

C ; dx = leap year port = 7Dh, MM58274A% 

C 

C ; mov al,08h 

mov cl,ch 

and cl,03h 

shr al,cl 

out dx,al 



C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



dx = leap year port = 7Dh% 

set leap year bit% 

get year mod 8% 

get year mod 4% 

shift leap year bit into position% 



% 



Years. 

inc 

inc 

mov 

or 

out 

nop% 

in 

nop% 

in 

nop% 

in 

mov 

out 

Start Clock. 

mov 
dec 
out 
mov 
out 
mov 
out 
xor 
out 



dx 

dx 

al,ch 

al,08h 

dx,al% 

al , dx% 

al,dx% 

al,dx% 

al,ch 

7Ch ? al 



al,0FFh 
dx 

dx,al 
ax, 2 
70h,al 
ax , OBh 
7Fh,al 
ax, ax 
70h,al 



Restore registers. 



pop 
pop 
pop 
pop 
xor 



ret 



dx 
ex 
bx 
ax 
ah, ah 



% 
dx = leap year port = 7Dh T MM58274A% 



dx = stop/start = 7Eh% 

dx = interrupt = 7Fh% 

get year mod 8% 

set 'repeated interrupt' bit% 



get year since beginning of time % 
units year port% 



al = 0FFh% 

dx = stop/start = 7Eh% 

start clock% 

i 

select the interrupt register% 
repeated interrupts, every second% 



% 
% 
start the clock% 



ah = 



no error 



c write endp 
ENDIF 
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FA30 



FA30 32 E4 

FA32 B6 OA 

FA34 F6 F6 

FA36 86 C4 



FA38 32 F6 

FA3A EE 

FA3B 8A C4 

FA3D 42 

FA3E EE 

FA3F 42 

FA40 C3 

FA41 



FA41 



FA41 33 CO 

FA43 2E: 8A 87 F902 R 

FA48 80 FB 01 

FA4B 75 06 

FA4D F6 C5 03 



ENDIF 



Converts hexadecimal byte to BCD and outputs both bytes. (c_whex) 

Input: al = hexadecimal byte 

dl = pointer to units of whatever port 
Output: dx = pointer to units of next port (dh = 0) 

Trash: ax destroyed. 



c whex proc near 

assume cs : code, ds : nothing, es : nothing, ss : nothing 



xor ah, ah 
mov dh,10 
div dh 



xchg 



xor 
out 
mov 
inc 
out 
inc 
ret 



al,ah 



dh,dh 

dx,al 

al,ah 

dx 

dx r al 

dx 



ax = hexadecimal byte 

dh = divisor 

ah = remainder = low BCD digit (0-9) 

al = quotient = high BCD digit 

ah = quotient = high BCD digit 

al = remainder = low BCD digit (0-9) 

dx points to units of whatever port 

out to units of whatever 

move tens of whatever to low byte 

dx points to tens of whatever port 

out to tens of whatever 

dx points to units of next port 



c whex endp 



Get Days per Month. (c_gdays) 

This routine calculates the number of days 

per month based on the year without checking validity of month. 



= month (assumes bx < 12) 

= year 

= days in month, if month valid; else garbage 



Input: 


bx 




ch 


OUtpUt: 


ax 


Trash: 


None 



c gdays proc near 

assume cs:COde, ds : nothing, es : nothing, ss : nothing 



xor ax, ax 

mov al,cs:[bx+c_dy_mo] 

cmp bl , 1 

jnz c_gret 

test ch,03h 



clear ah 



; is is February? 

; if not February, return 

; if year = mod 4, leap year 
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FA50 


75 01 


FA52 


40 


FA53 


C3 


FA54 




FA54 





C 


jnz 


c 


C 






C 


inc 


ax 


C 


c gret: ret 




C 






C 


c gdays endp 




C 






C 


code ends 





if not leap year, ax = 28th, so return 
load ax with February 29th 



ORG'd Font Tables 



FA54 



FA6E 
FA6E 



FA6E 






C 
C 


FA6E 


00 00 00 


00 00 00 


C 




00 00 




C 


FA76 


7E 81 A5 


81 BD 99 


C 




81 7E 




C 


FA7E 


7E FF DB 


FF C3 E7 


C 




FF 7E 




C 


FA86 


6C FE FE 


FE 7C 38 


C 




10 00 




C 


FA8E 


10 38 7C 


FE 7C 38 


C 




10 00 




C 


FA96 


38 7C 38 


FE FE 7C 


C 




38 7C 




C 


FA9E 


10 10 38 


7C FE 7C 


C 




38 7C 




C 


FAA6 


00 00 18 3C 3C 18 


c 




00 00 




c 


FAAE 


FF FF E7 


C3 C3 E7 


c 




FF FF 




c 


FAB6 


00 3C 66 


42 42 66 


c 




3C 00 




c 


FABE 


FF C3 99 BD BD 99 


c 




C3 FF 




c 


FAC6 


OF 07 OF 


7D CC CC 


c 




CC 78 




c 


FACE 


3C 66 66 66 3C 18 


c 




7E 18 




c 


FAD6 


3F 33 3F 


30 30 70 


c 




FO EO 




c 


FADE 


7F 63 7F 


63 63 67 


c 




E6 CO 




c 


FAE6 


99 5A 3C 


E7 E7 3C 


c 




5A 99 




c 


FAEE 


80 EO F8 


FE F8 EO 


c 




80 00 




c 



code segment public 'ROM' 

assume csrcode, ds : nothing, es : nothing, ss : nothing 

ORG 0FA6Eh 

font lo 8x8 label byte 
include fontlo8.asm 
fontlo8 proc near ; System Font Table for M24 

DB 00h,00h,00h,00h,00h,00h,00h,00h ; 

DB 7eh,81h,0a5h,81h,0bdh,99h,81h,7eh ; 1 

DB 7eh,0ffh,0dbh,0ffh,0c3h,0e7h,0ffh,7eh ; 2 

DB 6ch,0feh,0feh,0feh,7ch,38h,10h,00h ; 3 

DB 10h,38h,7ch,0feh,7ch,38h,10h,00h ; 4 

DB 38h,7ch,38h,0feh,0feh,7ch,38h,7ch ; 5 

DB 10h,10h,38h,7ch,0feh,7ch,38h,7ch ; 6 

DB 00h,00h,18h,3ch,3ch,18h,00h,00h ; 7 

DB 0ffh,0ffh,0e7h,0c3h,0c3h,0e7h,0ffh,0ffh ; 8 

DB 00h,3ch,66h,42h,42h,66h,3ch,00h ; 9 

DB 0ffh,0c3h,99h,0bdh,0bdh,99h,0c3h,0ffh ; a 

DB 0fh,07h,0fh,7dh,0cch,0cch,0cch,78h ; b 

DB 3ch,66h,66h,66h,3ch,18h,7eh,18h ; c 

DB 3fh,33h,3fh,30h,30h,70h,0f0rv,0e0h ; d 

DB 7fh,63h,7fh,63h,63h,67h,0e6h,0c0h ; e 

DB 99h,5ah,3ch,0e7h,0e7h,3ch,5ah,99h ; f 

DB 80h,0e0h,0f8h,0feh,0f8h,0e0h,80h,00h ; 10 
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FAF6 02 0E 3E FE 3E 0E C 

02 00 C 

FAFE 18 3C 7E 18 18 7E C 

3C 18 C 

FB06 66 66 66 66 66 00 C 

66 00 C 

FBOE 7F DB DB 7B 1B 1B C 

1B 00 C 

FB16 3E 63 38 6C 6C 38 C 

CC 78 C 

FB1E 00 00 00 00 7E 7E C 

7E 00 C 

FB26 18 3C 7E 18 7E 3C C 

18 FF C 

FB2E 18 3C 7E 18 18 18 C 

18 00 C 

FB36 18 18 18 18 7E 3C C 

18 00 C 

FB3E 00 18 OC FE OC 18 C 

00 00 C 

FB46 00 30 60 FE 60 30 C 

00 00 C 

FB4E 00 00 CO CO CO FE C 

00 00 C 

FB56 00 24 66 FF 66 24 C 

00 00 C 

FB5E 00 18 3C 7E FF FF C 

00 00 C 

FB66 00 FF FF 7E 3C 18 C 

00 00 C 

FB6E 00 00 00 00 00 00 C 

00 00 C 

FB76 30 78 78 30 30 00 C 

30 00 C 

FB7E 6C 6C 6C 00 00 00 C 

00 00 C 

FB86 6C 6C FE 6C FE 6C C 

6C 00 C 

FB8E 30 7C CO 78 OC F8 C 

30 00 C 

FB96 00 C6 CC 18 30 66 C 

C6 00 C 

FB9E 38 6C 38 76 DC CC C 

76 00 C 

FBA6 60 60 CO 00 00 00 C 

00 00 C 

FBAE 18 30 60 60 60 30 C 

18 00 C 

FBB6 60 30 18 18 18 30 C 

60 00 C 

FBBE 00 66 3C FF 3C 66 C 

00 00 C 

FBC6 00 30 30 FC 30 30 C 

00 00 C 

FBCE 00 00 00 00 00 30 C 



DB 02h , Oeh , 3eh , Of eh , 3eh , Oeh , 02h , OOh 

DB 18h , 3ch , 7eh T 18h T 18h, 7eh , 3ch , 18h 

DB 66h , 66h , 66h , 66h , 66h , OOh , 66h , OOh 

DB 7f h , Odbh , Odbh , 7bh , 1bh , 1bh , 1bh , OOh 

DB 3eh , 63h , 38h , 6ch , 6ch , 38h , Occh , 78h 

DB OOh , OOh , OOh , OOh , 7eh , 7eh , 7eh , OOh 

DB 18h,3ch,7eh,18h,7eh,3ch,18h,0ffh 

DB 18h , 3ch , 7eh , 18h , 18h , 18h , 18h , OOh 

DB 18h , 18h , 18h , 18h , 7eh , 3ch , 18h , OOh 

DB OOh , 18h , Oeh , Of eh , Oeh , 18h , OOh , OOh 

DB OOh , 30h , 60h , Of eh , 60h , 30h , OOh , OOh 

DB OOh , OOh , OcOh , OcOh , OcOh , Of eh , OOh , OOh 

DB 00h,24h,66h,0ffh,66h,24h,00h,00h 

DB 00h,18h,3ch,7eh,0ffh,0ffh,00h,00h 

DB 00h,0ffh,0ffh,7eh,3ch,18h,00h,00h 

DB OOh , OOh , OOh , OOh , OOh , OOh , OOh , OOh 

DB 30h , 78h , 78h , 30h , 30h , OOh , 30h , OOh 

DB 6ch , 6ch , 6ch , OOh , OOh , OOh , OOh , OOh 

DB 6ch , 6ch , Of eh , 6ch , Of eh , 6ch , 6ch , OOh 

DB 30h , 7ch , OcOh , 78h , Oeh , Of 8h , 30h , OOh 

DB OOh , 0c6h , Occh , 18h , 30h , 66h , Oc6h , OOh 

DB 38h , 6ch , 38h , 76h , Odch , Occh , 76h , OOh 

DB 60h , 60h , OcOh , OOh , OOh , OOh , OOh , OOh 

DB 18h , 30h , 60h , 60h , 60h , 30h , 18h , OOh 

DB 60h , 30h , 18h , 18h , 18h , 30h , 60h , OOh 

DB 00h,66h,3ch,0ffh,3ch,66h,00h,00h 

DB OOh , 30h , 30h , Of ch , 30h , 30h , OOh , OOh 

DB OOh , OOh , OOh , OOh , OOh , 30h , 30h , 60h 





11 




12 




13 




14 




15 




16 




17 




18 




19 




1a 


; 


1b 


; 


1c 


: 


1d 


5 


1e 


5 


1f 


:' 


20 


; ' ! ' 


21 


>n 


22 


; '#' 


23 


;'$' 


24 


;'%' 


25 


;'&' 


26 


;" ' 


27 


;'(' 


28 


;')' 


29 


# > * > 


2a 


; ' + ' 


2b 


.' ? ' 


2c 
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30 60 


C 


FBD6 


00 00 00 FC 00 00 


C 




00 00 


C 


FBDE 


00 00 00 00 00 30 


C 




30 00 


C 


FBE6 


06 0C 18 30 60 CO 


C 




80 00 


C 


FBEE 


7C C6 CE DE F6 E6 


C 




7C 00 


C 


FBF6 


30 70 30 30 30 30 


C 




FC 00 


C 


FBFE 


78 CC OC 38 60 CC 


C 




FC 00 


C 


FC06 


78 CC OC 38 OC CC 


C 




78 00 


C 


FCOE 


1C 3C 6C CC FE OC 


C 




1E 00 


C 


FC16 


FC CO F8 OC OC CC 


C 




78 00 


C 


FC1E 


38 60 CO F8 CC CC 


C 




78 00 


C 


FC26 


FC CC OC 18 30 30 


C 




30 00 


c 


FC2E 


78 CC CC 78 CC CC 


c 




78 00 


c 


FC36 


78 CC CC 7C OC 18 


c 




70 00 


c 


FC3E 


00 30 30 00 00 30 


c 




30 00 


c 


FC46 


00 30 30 00 00 30 


c 




30 60 


c 


FC4E 


18 30 60 CO 60 30 


c 




18 00 


c 


FC56 


00 00 FC 00 00 FC 


c 




00 00 


c 


FC5E 


60 30 18 OC 18 30 


c 




60 00 


c 


FC66 


78 CC OC 18 30 00 


c 




30 00 


c 


FC6E 


7C C6 DE DE DE CO 


c 




78 00 


c 


FC76 


30 78 CC CC FC CC 


c 




CC 00 


c 


FC7E 


FC 66 66 7C 66 66 


c 




FC 00 


c 


FC86 


3C 66 CO CO CO 66 


c 




3C 00 


c 


FC8E 


F8 6C 66 66 66 6C 


c 




F8 00 


c 


FC96 


FE 62 68 78 68 62 


c 




FE 00 


c 


FC9E 


FE 62 68 78 68 60 


c 




FO 00 


c 


FCA6 


3C 66 CO CO CE 66 


c 




3E 00 


c 



DB OOh , OOh , OOh , Of ch , OOh , OOh , OOh , OOh 
DB OOh , OOh , OOh , OOh , OOh , 30h , 30h , OOh 
DB 06h , Och , 18h , 30h , 60h , OcOh , 80h , OOh 
DB 7ch , 0c6h , Oceh , Odeh , Of 6h , 0e6h , 7ch , OOh 

DB 30h , 70h , 30h , 30h , 30h , 30h , Of ch , OOh 

DB 78h , Occh , Och , 38h , 60h , Occh , Of ch , OOh 

DB 78h , Occh , Och , 38h , Och , Occh , 78h , OOh 
DB 1ch , 3ch , 6ch , Occh , Of eh , Och , 1eh , OOh 

DB Of ch , OcOh , Of 8h , Och , Och , Occh , 78h , OOh 

DB 38h , 60h , OcOh , Of 8h , Occh , Occh , 78h , OOh 

DB Of ch , Occh , Och , 18h , 30h , 30h , 30h , OOh 

DB 78h , Occh , Occh , 78h , Occh , Occh , 78h , OOh 

DB 78h , Occh , Occh , 7ch , Och , 18h , 70h , OOh 

DB OOh , 30h , 30h , OOh , OOh , 30h , 30h , OOh 

DB OOh , 30h , 30h , OOh , OOh , 30h , 30h , 60h 

DB 18h , 30h , 60h , OcOh , 60h , 30h , 18h , OOh 

DB OOh , OOh , Of ch , OOh , OOh , Of ch , OOh , OOh 

DB 60h , 30h , 18h , Och , 18h , 30h , 60h , OOh 

DB 78h , Occh , Och , 18h , 30h , OOh , 30h , OOh 

DB 7ch , 0c6h , Odeh , Odeh , Odeh , OcOh , 78h , OOh 

DB 30h , 78h , Occh , Occh , Of ch , Occh , Occh , OOh 

DB Of ch , 66h , 66h , 7ch , 66h , 66h , Of ch , OOh 

DB 3ch , 66h , OcOh , OcOh , OcOh , 66h , 3ch , OOh 

DB Of 8h , 6ch , 66h , 66h , 66h , 6ch , Of 8h , OOh 

DB Of eh , 62h , 68h , 78h , 68h , 62h , Of eh , OOh 

DB Of eh , 62h , 68h , 78h , 68h , 60h , Of Oh , OOh 

DB 3ch , 66h , OcOh , OcOh , Oceh , 66h , 3eh , OOh 



;'-' 2d 
;'.' 2e 

;'/' 2f 
;'0' 30 
;'1' 31 
;'2' 32 
;'3' 33 
;'4' 34 
;'5' 35 
;'6' 36 
;'7' 37 
;'8' 38 
;'9' 39 
;':' 3a 
;';' 3b 

;'<' 3C 
;'=' 3d 

;'>' 3e 

;'?' 3f 

;'§>' 40 

;'A' 41 

;'B' 42 

;'C 43 

;'D' 44 

;'E' 45 

;'F' 46 

;'G' 47 
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FCAE 


CC 


CC 


CC FC CC CC 


C 


DB 




CC 


00 




C 




FCB6 


78 


30 


30 30 30 30 


C 


DB 




78 


00 




C 




FCBE 


1E 


OC 


OC OC CC CC 


C 


DB 




78 


00 




C 




FCC6 


E6 66 


6C 78 6C 66 


C 


DB 




E6 


00 




C 




FCCE 


FO 


60 


60 60 62 66 


C 


DB 




FE 


00 




C 




FCD6 


C6 


EE 


FE FE D6 C6 


C 


DB 




C6 


00 




C 




FCDE 


C6 


E6 


F6 DE CE C6 


C 


DB 




C6 


00 




C 




FCE6 


38 6C 


C6 C6 C6 6C 


C 


DB 




38 


00 




C 




FCEE 


FC 


66 


66 7C 60 60 


C 


DB 




FO 


00 




C 




FCF6 


78 


CC 


CC CC DC 78 


c 


DB 




1C 


00 




c 




FCFE 


FC 


66 


66 7C 6C 66 


c 


DB 




E6 


00 




c 




FD06 


78 


CC 


EO 70 1C CC 


c 


DB 




78 


00 




c 




FDOE 


FC 


B4 


30 30 30 30 


c 


DB 




78 


00 




c 




FD16 


CC 


CC 


CC CC CC CC 


c 


DB 




FC 


00 




c 




FD1E 


CC 


CC 


CC CC CC 78 


c 


DB 




30 


00 




c 




FD26 


C6 


C6 


C6 D6 FE EE 


c 


DB 




C6 


00 




c 




FD2E 


C6 


C6 


6C 38 38 6C 


c 


DB 




C6 


00 




c 




FD36 


CC 


CC 


CC 78 30 30 


c 


DB 




78 


00 




c 




FD3E 


FE 


C6 


8C 18 32 66 


c 


DB 




FE 


00 




c 




FD46 


78 60 


60 60 60 60 


c 


DB 




78 


00 




c 




FD4E 


CO 


60 


30 18 OC 06 


c 


DB 




02 


00 




c 




FD56 


78 


18 


18 18 18 18 


c 


DB 




78 


00 




c 




FD5E 


10 


38 6C C6 00 00 


c 


DB 




00 


00 




c 




FD66 


00 


00 


00 00 00 00 


c 


DB 




00 


FF 




c 




FD6E 


30 


30 


18 00 00 00 


c 


DB 




00 


00 




c 




FD76 


00 


00 


78 OC 7C CC 


c 


DB 




76 


00 




c 




FD7E 


EO 


60 


60 7C 66 66 


c 


DB 




DC 


00 




c 




FD86 


00 


00 


78 CC CO CC 


c 


DB 



Occh , Occh , Occh , Of ch , Occh , Occh , Occh , OOh 
78h , 30h , 30h , 30h , 30h , 30h , 78h , OOh 
1eh , Och , Och , Och , Occh , Occh , 78h , OOh 
0e6h , 66h , 6ch , 78h , 6ch , 66h , 0e6h , OOh 
Of Oh , 60h , 60h , 60h , 62h , 66h , Of eh , OOh 
0c6h , Oeeh , Of eh , Of eh , 0d6h , 0c6h , 0c6h , OOh 
0c6h , 0e6h , Of 6h , Odeh , Oceh , Oc6h , 0c6h , OOh 
38h , 6ch , 0c6h , 0c6h , Oc6h , 6ch , 38h , OOh 
Of ch , 66h , 66h , 7ch , 60h , 60h , Of Oh , OOh 
78h , Occh , Occh , Occh , Odch , 78h , 1ch , OOh 
Of ch , 66h , 66h , 7ch , 6ch , 66h , 0e6h , OOh 
78h , Occh , OeOh , 70h , 1ch , Occh , 78h , OOh 
Of ch , 0b4h , 30h , 30h , 30h , 30h , 78h , OOh 
Occh , Occh , Occh , Occh , Occh 7 Occh , Of ch , OOh 
Occh , Occh , Occh , Occh , Occh , 78h , 30h , OOh 
0c6h , 0c6h , 0c6h , 0d6h , Of eh , Oeeh , 0c6h , OOh 
0c6h , 0c6h , 6ch , 38h , 38h , 6ch , 0c6h , OOh 
Occh , Occh , Occh , 78h , 30h , 30h , 78h , OOh 
Of eh , Oc6h , 8ch , 18h , 32h f 66h , Of eh , OOh 
78h , 60h , 60h , 60h , 60h , 60h , 78h , OOh 
OcOh , 60h , 30h , 18h , Och , 06h , 02h , OOh 
78h , 18h , 18h , 18h , 18h , 18h , 78h , OOh 
10h , 38h , 6ch , 0c6h , OOh , OOh , OOh , OOh 
OOh , OOh, OOh, OOh, OOh, OOh, OOh, Of fh 
30h , 30h , 18h , OOh , OOh , OOh , OOh , OOh 
OOh , OOh , 78h , Och , 7ch , Occh , 76h , OOh 
OeOh , 60h , 60h , 7ch , 66h , 66h , Odch , OOh 
OOh , OOh , 78h , Occh , OcOh , Occh , 78h , OOh 



;'H' 


48 


;'I* 


49 


;'J' 


4a 


;'K' 


4b 


;'L' 


4c 


;'M' 


4d 


;'N' 


4e 


;'0' 


4f 


;'P' 


50 


;'Q' 


51 


;'R' 


52 


;'S' 


53 


;'T' 


54 


;'U' 


55 


;'V 


56 


;'W 


57 


;'X' 


58 


;'Y' 


59 


;'Z' 


5a 


;'[' 


5b 


>' 


5c 


;T 


5d 


;""' 


5e 


' _ 


5f 


;'" 


60 


; 'a' 


61 


;'b' 


62 


; 'C 


63 
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78 


00 


C 


FD8E 


1C 


OC OC 7C CC CC 


C 




76 


00 


C 


FD96 


00 


00 78 CC FC CO 


C 




78 


00 


C 


FD9E 


38 


6C 60 FO 60 60 


C 




FO 


00 


C 


FDA6 


00 


00 76 CC CC 7C 


C 




OC 


F8 


C 


FDAE 


EO 


60 6C 76 66 66 


C 




E6 


00 


c 


FDB6 


30 


00 70 30 30 30 


c 




78 


00 


c 


FDBE 


OC 


00 OC OC OC CC 


c 




CC 


78 


c 


FDC6 


EO 


60 66 6C 78 6C 


c 




E6 00 


c 


FDCE 


70 


30 30 30 30 30 


c 




78 


00 


c 


FDD6 


00 


00 CC FE FE D6 


c 




C6 


00 


c 


FDDE 


00 


00 F8 CC CC CC 


c 




CC 


00 


c 


FDE6 


00 


00 78 CC CC CC 


c 




78 


00 


c 


FDEE 


00 


00 DC 66 66 7C 


c 




60 


FO 


c 


FDF6 


00 


00 76 CC CC 7C 


c 




OC 


1E 


c 


FDFE 


00 00 DC 76 66 60 


c 




FO 


00 


c 


FE06 


00 


00 7C CO 78 OC 


c 




F8 


00 


c 


FEOE 


10 


30 7C 30 30 34 


c 




18 


00 


c 


FE16 


00 


00 CC CC CC CC 


c 




76 


00 


c 


FE1E 


00 00 CC CC CC 78 


c 




30 


00 


c 


FE26 


00 


00 C6 D6 FE FE 


c 




6C 


00 


c 


FE2E 


00 


00 C6 6C 38 6C 


c 




C6 


00 


c 


FE36 


00 


00 CC CC CC 7C 


c 




OC F8 


c 


FE3E 


00 


00 FC 98 30 64 


c 




FC 


00 


c 


FE46 


1C 30 30 EO 30 30 


c 




1C 


00 


c 


FE4E 


18 


18 18 00 18 18 


c 




18 


00 


c 


FE56 


EO 


30 30 1C 30 30 


c 




EO 


00 


c 


FE5E 


76 


DC 00 00 00 00 


c 




00 


00 


c 



DB 1ch , Och , Och , 7ch , Occh , Occh , 76h , OOh ; ' d ' 64 

DB 00h,00h,78h,0cch,0fch,0c0h,78h,00h ; < e ' 65 

DB 38h,6ch,60h,0f0h,60h,60h,0f0h,00h ; T 66 

DB OOh, OOh, 76h, Occh, Occh, 7ch, Och, Of 8h ; 'g' 67 

DB 0e0h,60h,6ch,76h,66h,66h,0e6h,00h ; 'h' 68 

DB 30h,00h,70h,30h,30h,30h,78h,00h ; 'i' 69 

DB Och , OOh , Och , Och , Och , Occh , Occh , 78h ; ' j ' 6a 

DB 0e0h,60h,66h,6ch,78h,6ch,0e6h,00h ; 'k' 6b 

DB 70h,30h,30h,30h,30h,30h,78h,00h ; 'l' 6c 

DB OOh , OOh , Occh , Of eh , Of eh , 0d6h , 0c6h , OOh ; ' m ' 6d 

DB OOh , OOh , Of 8h , Occh , Occh , Occh , Occh , OOh ; ' n ' 6e 

DB OOh, OOh, 78h, Occh, Occh, Occh, 78h, OOh ; 'o' 6f 

DB 00h,00h,0dch,66h,66h,7ch,60h,0f0h ; 'p' 70 

DB OOh, OOh, 76h, Occh, Occh, 7ch, Och, 1eh ; 'q' 71 

DB 00h,00h,0dch,76h,66h,60h,0f0h,00h ; 'r' 72 

DB 00h,00h,7ch,0c0h,78h,0ch,0f8h,00h ; 's' 73 

DB 10h,30h,7ch,30h,30h,34h,18h,00h ; 't' 74 

DB OOh , OOh , Occh , Occh , Occh , Occh , 76h , OOh ; ' u ' 75 

DB OOh, OOh, Occh, Occh, Occh, 78h,30h, OOh ; 'v' 76 

DB OOh , OOh , 0c6h , 0d6h , Of eh , Of eh , 6ch , OOh ; ' w ' 11 

DB 00h,00h,0c6h,6ch,38h,6ch,0c6h,00h ; 'x' 78 

DB OOh , OOh , Occh , Occh , Occh , 7ch , Och , Of 8h ; ' y ' 79 

DB 00h,00h,0fch,98h,30h,64h,0fch,00h ,'z' 7a 

DB 1ch,30h,30h,0e0h,30h,30h,1ch,00h ;'{' 7b 

DB 18h,18h,18h,00h,18h,18h,18h,00h ; T 7c 

DB 0e0h,30h,30h,1ch,30h,30h,0e0h,00h ;'}' 7d 

DB 76h,0dch,00h,00h,00h,00h,00h,00h ; '~' 7e 
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FE66 00 10 38 6C C6 C6 
FE 00 



FE6E 
FE6E 



C DB 

C 

C ; End of font matrix 

C 

C fontlo8 endp 

code ends 



OOh , 10h , 38h , 6ch , 0c6h , 0c6h , Of eh , OOh 



7f 



FE6E 



FE6E 
FE6E 



include rtc.asm 



Filename: rtc.src 

This module includes INT 08h & 1Ah. 



code segment public 'ROM' 

assume cs : code, ds : nothing, es : nothing, ss : nothing 



INT 1Ah — Time of Day Software Interrupt Request Routine 

Input: ah = Read the Clock, then: 

Output: ex = High Portion of Clock (t_hi_order) 

dx = Low Portion of Clock (t low order) 

al = 1 if 24 hours have elapsed (t_overflow) ; otherwise 

Input: ah = 1 Set the Clock, then: 

ex = High Portion of Clock (t hi order) 

dx = Low Portion of Clock (t low order) 



Trash: ah 



(ah - 1) if ah <> 0,-1, or -2 



Input: ah = -1 Write Clock Calendar Device, then: 

bx = day (from 1-1 of leap year up to 12-31 of leap year+7) 
(0-2921) = (0-B69h) 

ch = hour (0-23) 

cl = minutes (0-59) 
Output: ah = -1 implies date/time error 

ah = implies date/time OK 

Input: ah = -2 Read Clock Calendar Device, then: 

Output: bx = day (from 1-1 of leap year up to 12-31 of leap year+7) 

ch = hour 

cl = minutes 

dh = seconds 

dl = hundredths of seconds 

Trash: None. 



ORG 0FE6Eh 



t day proc near 
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FE6E FB 

FE6F 80 FC FE 

FE72 75 04 

FE74 E8 F90E R 

FE77 CF 
FE78 

FE78 72 04 

FE7A E8 F99A R 

FE7D CF 
FE7E 



FE7E 1E 

FE7F E8 E53A R 

FE82 FA 



FE83 80 EC 01 
FE86 73 OD 



FE88 32 E4 

FE8A 8B OE 006E R 

FE8E 8B 16 006C R 

FE92 AO 0070 R 



FE95 75 OC 



FE97 89 OE 006E R 

FE9B 89 16 006C R 

FE9F 88 26 0070 R 

FEA3 1F 

FEA4 CF 

FEA5 



FEA5 



C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



assume cs:COde, ds : nothing, es : nothing, ss : nothing 

sti ; enable interrupts 



cmp ah,0FEh 

jne t_nFE 

call c read 
iret 



t nFE: 



jb 



t nFF 



ZF set if FEh, CF reset if FFh 
ah = -2 = OFEh ? 

read calendar chip 



ah = -1 = OFFh > OFEh ? 



call c_write 
iret 



set calendar chip 



t nFF: 



assume cs : code, ds:data, es : nothing, ss : nothing 



push ds 
call set_ds 

cli 



sub 
jae 



ah,1 
t set 



Read Time of Day. 

xor ah, ah 

mov ex, word ptr ds : [t hi_order] 

mov dx,word ptr ds : [t low order] 

mov al,byte ptr ds:[t overflow] 



t set: jnz t end 
; Set Time of Day. 



mov 
mov 
mov 

t_end: pop 
iret 

t day endp 



word ptr ds : [t hi order], ex 
word ptr ds : [t low order], dx 
byte ptr ds : [t_overflow] ,ah 

ds 



save registers 
satisfy assumptions 

interrupts off! 
(shared variables) 

DON'T DECREMENT (CF needed!) 
ah = < 1? 



ah = & ZF set! 



t_overflow = by setting time! 
fall through (ah = & ZF set) 

was ah = 1? (is ah = now)? 



it's ok, if we fell through, 
(a bit slower, but smaller!) 
ah = (in all cases. . .) 

restore registers 



INT 08h — i8254 p timer Hardware Interrupt Service Routine 



ORG 



0FEA5h 
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FEA5 



FEA5 50 
FEA6 52 
FEA7 1E 



FEA8 2E: 8E 1E E538 R 



FEAD FE 0E 0040 R 

FEB1 75 08 

FEB3 E8 ED50 R 

FEB6 80 26 003F R F0 

FEBB 



FEBB FF 06 006C R 

FEBF 75 04 

FECI FF 06 006E R 
FEC5 



FEC5 81 3E 006C R 00B0 

FECB 75 14 

FECD 83 3E 006E R 18 

FED2 75 OD 

FED4 C6 06 0070 R 01 

FED9 33 CO 

FEDB A3 006C R 

FEDE A3 006E R 
FEE1 



FEE1 CD 1C 



C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



t int proc near 

assume csrcode, ds : nothing, es : nothing, ss : nothing 

; interrupts off! 
; (shared variables) 

push ax ; preserve registers 

push dx 

push ds 

assume cs : code, ds:data, es : nothing, ss : nothing 

mov ds,word ptr cs : [set_ds_word] ; satisfy assumption 

; Handle turning off floppy disk drive motor. 



dec byte ptr ds : [motor_count] 
jnz t_inc 



decrement motor on count 
should we turn off drive? 



call stop disk ; if so, stop disk motor 

and byte ptr ds: [motor status], OFOh ; clear low nibble of status 



t inc: 



Increment long p_timer count 

inc word ptr ds:[t low order] 
jnz t hi 



inc word ptr ds : [t hi order] 



increment low byte of counter 
skip t_hi_order 

increment high byte of counter 



t hi: 



Handle 24 hour overflow situation 



t Ofl: 



cmp 
jne 

cmp 
jne 

mov 
xor 
mov 
mov 



sti 



word ptr ds : [t low order], OOBOh ; has 24 hours elapsed? 



t_ofl 

word ptr ds : [t_hi_order] ,24 
t_ofl 

byte ptr ds : [t overflow], 01h 
ax, ax 

word ptr ds : [t_low_order],ax 
word ptr ds : [t_hi_order] ,ax 



if not, skip t_overflow 

has 24 hours elapsed? 
if not, skip t overflow 



enable interrupts 

(no more shared variables) 



; Invoke any user p timer break routine. 

INT 1Ch 

; Send specific end of interrupt (SEOI) to pic 'command' port AFTER p_timer 
; break, because user may be out-to-lunch for quite awhile 
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FEE3 


BO 60 


FEE5 


E6 20 


FEE7 


EB 01 90 


FEEA 




FEEA 


FB 


FEEB 


1F 


FEEC 


5A 


FEED 


58 


FEEE 


CF 


FEEF 




FEEF 





FEEF 



FEF3 



FEF3 



FEF3 


FEA5 R 


FEF5 


E987 R 


FEF7 


FF23 R 


FEF9 


FF23 R 


FEFB 


FF23 R 


FEFD 


FF23 R 


FEFF 


EF57 R 


FF01 


FF23 R 


FF03 


F065 R 


FF05 


F84D R 


FF07 


F841 R 


FF09 


EC59 R 


FFOB 


E739 R 


FFOD 


F859 R 


FFOF 


E82E R 


FF11 


EFD2 R 


FF13 


F6E0 R 


FF15 


F876 R 


FF17 


FE6E R 


FF19 


FF4B R 


FF1B 


FF4B R 


FF1D 


F0A4 R 



drb: 



mov 

out 

- jmp 

sti 



al,pic seoi 
pic 0,al 
drb" 



specific end of interrupt command 
to pic 'command port. 



pop ds 

pop dx 

pop ax 
iret 

t int endp 

code ends 
include vector. asm 



restore registers 



Filename: 



vector. src 



This module includes the table of ROM interrupt vectors & illjlnt 
hardware diagnostic & illegal software interrupt service routine. 



code segment public 'ROM' 

assume cs:COde, ds : nothing, es : nothing, ss : nothing 



ORG 

i vecjtbl 

dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 

dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 

dw 
dw 
dw 
dw 
dw 
dw 



0FEF3h 

proc nea 

t int 

k int 

illjlnt 

illjLnt 

illjlnt 

illjlnt 

fd_int 

illjlnt 

v io 
m equip 
m size 
fd_io 
serial io 
m cass 
k_io 
p_io 

basic trap 
bt int 
t_day 

dummy iret 
dummy iret 
v parms 



int081ocn 
int091ocn 
intOAlocn 
intOBlocn 
intOClocn 
intODlocn 
intOElocn 
intOFlocn 

intlOlocn 
intHlocn 
int12locn 
int13locn 
int14locn 
int15locn 
int16locn 
int17locn 

int18locn 
int19locn 
intlAlocn 
intlBlocn 
intlClocn 
intlDlocn 



see rtc.src 
see kb.src 



see dsk.src 



see vid.src 
see mem. src 
see mem. src 
see dsk.src 
see com. src 
see mem. src 
see kb.src 
see prn.src 

see int18.src 
see boot. src 
see rtc.src 
see kb.src 
see rtc.src 
see vid.src 
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FF1F 


EFC7 R 


C 


dw 


fd parms ; intlElocn see dsk.src 


FF21 


C860 R 


C 
C 
C 
C 

C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


dw 


font hi 8x8 ; intlFlocn see graph. src 


FF23 




i vec tbl 


endp 






; Interrupt Routine for Unused Hardware & Illegal Software Interrupts 






assume 


cs:Code, ds: nothing, es : nothing, ss : nothing 


FF23 




ORG 


0FF23h 


FF23 




ill int proc 


near ; trap for illegal interrupts 


FF23 


50 


push 


ax ; save registers 






c 




; ah = -1; illegal software trap 


FF24 


B8 FFOB 


c 


mov 


ax,(0FFh*100h)+0Bh ; al = 0CW3 -- read PIC's 


FF27 


E6 20 


c 
c 
c 
c 
c 
c 
c 


out 


pic 0,al ; in-service register 


FF29 


1E 


push 


ds ; save registers & delay 






; Determine whether it is a hardware or software interrupt. 


FF2A 


E4 20 


in 


al,pic ; get active PIC IR# 


FF2C 


0A CO 


c 


or 


al,al ; are any active? 


FF2E 


74 0E 


c 
c 
c 
c 
c 


jz 


ill sw ; if not, illegal software trap. 






; If hardware 


interrupt, disable the 8259 PIC from further interrupts. 


FF30 


8A E0 


mov 


ah,al ; return active PIC IR# 


FF32 


E4 21 


c 


in 


al,pic 1 ; 0CW1 — get PIC interrupt mask 


FF34 


OA C4 


c 


or 


al,ah ; shut off (set) IR# bit. 


FF36 


E6 21 


c 
c 
c 


out 


pic 1,al ; send PIC new mask. 


FF38 


BO 20 


mov 


al,pic neoi ; 0CW2 — send PIC a 


FF3A 


E6 20 


c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


out 


pic 0,al ; nonspecific end of int 






; Return ah = 


active PIC Interrupt Number in intr flag. 


FF3C 


EB 03 


jmp 


short ill fig 


FF3E 




ill SW: 


; illegal software trap; ah = -1 






; Turn off floppy disk drives and notify user 


FF3E 


E8 E4BE R 


call 


ill trap ; every register but ds saved! 






assume 


csrcode, ds: nothing, es : nothing, ss : nothing 


FF41 




ill_flg : 


; set illegal trap flag. 






c 
c 
c 
c 




; illegal software trap; ah = -1 






assume 


cs:COde, ds:data, es-. nothing, ss : nothing 
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FF41 E8 E53A R 

FF44 88 26 006B R 

FF48 1F 

FF49 58 

FF4A CF 

FF4B 



FF4B 



FF4B 




FF4B 


CF 


FF4C 


CF 


FF4D 


CF 


FF4E 


CF 


FF4F 


CF 


FF50 


CF 


FF51 


CF 


FF52 


CF 


FF53 


CF 



FF54 



FF54 



FF54 



FF54 
FF54 



call set ds 

mov byte ptr ds : [intr flag],ah 



pop 


ds 


pop 


ax 


iret 





satisfy assumptions, 
return interrupt flag. 

restore registers. 

give user a second chance 



ill int endp 

assume cs : code, ds: nothing, es : nothing, ss : nothing 
ORG 0FF4Bh ; ORG 0FF4Bh through 0FF53h 

proc near 



dummy iret 
iret 

iret 
iret 
iret 
iret 
iret 
iret 
iret 
iret 

dummy iret 



; 'BREAK' key interrupt (1Bh) 
; p timer break interrupt (1Ch) 

0FF4Ch — in case someone is 

0FF4Dh 

0FF4Eh 

0FF4Fh 

0FF50h 

0FF51h 

0FF52h 

0FF53h 



endp 



code ends 
include prnscr.asm 



Filename: prnscr.src 
This module includes INT 05h. 



code segment public 'ROM' 

assume cs : code, ds-. nothing, es : nothing, ss : nothing 



INT 05h 



Print Screen 



Input: None. 
Output: None. 
Trash: None. (Uses byte at 50:0 = 40:0100 as monitor lock: 

indicates monitor not locked. 

1 indicates monitor locked. 
-1 indicates printer error. 



ORG 



s int proc 



0FF54h 



near 
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FF54 


FA 


FF55 


50 


FF56 


56 


FF57 


06 


FF58 


83 C4 06 


FF5B 


5E 


FF5C 


07 


FF5D 


26: 8B 04 


FF60 


83 EC 0A 


FF63 


07 


FF64 


5E 


FF65 


2C 62 


FF67 


58 


FF68 


75 02 


FF6A 


FB 


FF6B 


CF 


FF6C 




FF6C 


1E 



FF6D 2E: 8E 1E E538 R 



FF72 
FF73 
FF75 
FF7A 
FF7C 
FF7E 



52 

B2 01 

F0/ 86 16 0100 

FE CA 

74 4C 

FB 



FF7F 51 
FF80 53 
FF81 50 



C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



assume 


cs:Code, ds: nothing, es : nothing, ss : nothing 


INT 05H 


— Check for Bound instruction% 


; Purpose: 


To intercept the interrupt generated by the % 




bound instruction if the bound test fails.% 




If the last instruction executed was a bound % 







cli 

push 
push 
push 
add 

pop 
pop 
mov 
sub 
pop 
pop 



sub 
pop 
jnz 
sti 

iret 



notbound: 



lock 



push 



mov 

push 

mov 

xchg 

dec 

jz 

sti 



push 
push 
push 



ax 
si 
es 
sp, 6 

si 

es 

ax, es:[si] 

sp, Oah 

es 

si 



stop intrs% 

This front end routine checks for bound instruction. % 
% 



going to trash these registers% 

% 

go back to old sp% 

old ip% 

old cs% 

ax has desired opcode % 

normal sp% 

original values of es and si% 

% 



; Compare offending instruction with known opcode% 
al, 062H ; 62 /r is the opcode for bound % 
ax ; restore ax% 

notbound ; if not a bound instruction jmp to notbound% 
; reenable interrupts% 

; /o 

; print screen rountine % 
ds ; save ds 

assume cs:Code, ds:data, es : nothing, ss : nothing 
ds,word ptr cs : [set ds word] ; satisfy assumptions 



dx 

dl,1 

byte ptr ds : [100h],dl 

dl 

s nop 



ex 
bx 
ax 



1 = locked 

check monitor lock 

already locked ? 

if set, do nothing 

enable interrupts after 

monitor lock code! ! ! ! 

save registers 



Get Current Video Width. 
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FF82 B4 OF 
FF84 CD 10 



FF86 8A DC 



FF88 B4 03 
FF8A CD 10 



FF8C 8A EB 
FF8E 52 
FF8F B1 FF 



FF91 BA 0000 

FF94 E8 FFCD R 

FF97 75 24 

FF99 E8 FFE1 R 



FF9C 3C 00 

FF9E 75 02 

FFAO BO 20 
FFA2 



FFA2 E8 FFD4 R 
FFA5 75 16 



FFA7 


FE 


C2 


FFA9 


3A 


D5 


FFAB 


7C 


EC 


FFAD 


E8 


FFCD R 


FFBO 


75 


OB 


FFB2 


32 


D2 


FFB4 


FE 


C6 


FFB6 


80 


FE 19 


FFB9 


7C 


DE 



FFBB 33 C9 



mov ah,OFh 
INT 10h 



mov bl,ah 
Get Current Cursor Position. 



mov 
INT 



ah,03h 
10h 



mov ch,bl 

push dx 

mov cl,-1 

; Loop Through the Screen. 

mov dx,0 

call s_eol 

jnz s_err 

s lp : call s_get 

; Map Invalid Characters to Space. 

cmp al,0 

jne s_ok 

mov al,' ' 
s ok: 

; Print the Character. 

call s_out 

jnz s_err 

; Advance to Next Character. 

inc dl 

cmp dl,ch 

jl s_lp 

call s_eol 

jnz s_err 

xor dl,dl 

inc dh 

cmp dh,25 

jl s lp 



call v video state 
Output: ah = crt cols 
al = crt mode 
bh = active_page 

save ah = crt cols 



call v read_cursor 

Input: bh = active_page 

Output: 

(dh,dl) = (row, col) of cursor 

(ch.cl) = cursor mode setting 

get crt cols 
save row, col of cursor 
initialize cl = printer error 



(dh,dl) = (row, col) of origin 

print a new line 
any errors? 

get next character from screen 



check validity of character. 

if valid, we're ok. 

if invalid, print a space. 



xor 



ex, ex 



any errors? 



advance column (1-crt_cols) 
dl < ch = crt_cols? 
if so, continue 

else print a new line 
any errors? 

move column back to 
advance row (1-25) 
dh < 25 
if so, continue 

set cl = printer no error 
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FFBD 5A 
FFBE B4 02 
FFCO CD 10 



FFC2 FB 



FFC3 88 0E 0100 



FFC7 


58 


FFC8 


5B 


FFC9 


59 


FFCA 


5A 


FFCB 


1F 


FFCC 


CF 


FFCD 


BO OA 


FFCF 


E8 FFD4 R 


FFD2 


BO OD 


FFD4 




FFD4 


52 


FFD5 


BA 0000 


FFD8 


B4 00 


FFDA 


CD 17 


FFDC 


5A 


FFDD 


F6 C4 01 


FFEO 


C3 


FFE1 




FFE1 


B4 02 


FFE3 


CD 10 



FFE5 


B4 08 


FFE7 


CD 10 


FFE9 


C3 


FFEA 




FFEA 





c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 



; jmp 

s err: pop 
mov 
INT 



sti 

mov 

pop 
pop 
pop 
s_nop : pop 
pop 
iret 



s eol: 



S OUt: 



s get: 



short s err 

dx 

ah,02h 

10h 



byte ptr ds : [100h],cl 

ax 
bx 
ex 
dx 
ds 



fall through 

restore dx=(row,col) of cursor 

call v set epos 

Input: bh = active page 

dx =(row,col) of cursor 

disable interrupts during 
monitor lock code! ! ! ! 
reset monitor lock 

restore registers 



mov 


al ? LF 


call 


s out 


mov 


al,CR 


jmp 


short s out 


push 


dx 


mov 


dx,0 


mov 


ah,0 


INT 


17h 


pop 


dx 


test 


ah,025h 


test 


ah,001h 


ret 






; Set Cursor 


mov 


ah,02h 


INT 


10h 



; print LF & CR 

; print CR 
; fall through 

prints out byte in al 
save dx 

address printer port 0. 
write byte to port 

restore dx 

test for any errors? 

test for time out? 



Set Cursor Position and get character @ curs, position 



; Read Character at Cursor Position. 

mov ah ? 08h 
INT 10h 

ret 

s_int endp 

code ends 



call v set epos 

Input: bh = active page 

dx =(row,col) of cursor 



call v read ac current 
Input: bh = active page 
Output: al = character read 
ah = attribute 



CPU System Reset Vector 



The reset vector must point to diagnostics 1 so that OSMERGE can find 
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it's data area, i.e. osmergel and osmerge2. Do NOT change change 
the code to jump elsewhere as this will break OSMERGE 



FFEA 



FFFO 



code segment public 'ROM' 

assume cs : code, ds : nothing, es : nothing, ss : nothing 



ORG 



OFFFOh 



F000:FFF0 = FFFFO = FFFF.-0000 



hhhu 




vector 




proc near 


FFFO 


EA 




db 


OEAh 


FFF1 


DAD3 R 




dw 


diagnostics 1 


FFF3 


F000 




dw 


code seg 


FFF5 


31 32 2F 31 35 2F 
38 35 




db 


'12/15/85' 


FFFD 


00 


chk hi 


db 





FFFE 






ORG 


OFFFEh 


FFFE 


FE 




db 


OFEh 


FFFF 




vector 




endp near 


FFFF 




code 


ends 
end 





jmp intersegment F000: (offset diagnostics 1) 

instruction pointer 

code segment FOOOh 

release marker (exactly 8 bytes!!!!) 



; for " compatibility" 



Macros: 

Name 

JMPF 

Segments and Groups: 

Name 

ABSO 

CODE 

DATA 

STACK_RAM 

V_RAM 

Symbols: 

Name 

ABSOJEG 

ADDR 

ADDR_MARK_ERROR 

ADD_MEM_CODE 

ALT_INPUT 

ALT KEY 



Length 
0001 

Size Align Combine Class 



0080 PARA 

FFFF PARA 

00D3 PARA 

0000 PARA 

0000 PARA 



PUBLIC 'RAM' 

PUBLIC 'ROM' 

PUBLIC 'RAM' 

PUBLIC 'RAM' 

PUBLIC 'RAM' 



Type Value Attr 



Number 


0000 






L BYTE 


00D2 


DATA 




Number 


0002 






F PROC 


E6F5 


CODE 


Length =0016 


L BYTE 


0019 


DATA 




Number 


0038 
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ALT_RET 

ALTJHIFT. . . . 
BANNER_M . . . . 
BASICJRAP . . . 

BEL 

BELL_WAIT. . . . 

BETA 

BIOS_BREAK . . . 
BIOSJNSTALL . . 

BITREAD 

BS 

BT_AGAIN . . . . 

BTBLNK 

BT_DEC 

BT_I 

BT_INT 

BT_JMP 

BT_M 

BT_MERR 

BT_NXT 

BT_0 

BT_0K 

BTSPACES. . . . 
BUFFERJND . . . 
BUFFER_HEAD. . . 
BUFFERJTART . . 
BUFFERJAIL. . . 
CAPS_LOCK_KEY. . 
CAPS_LOCK_MODE . 
CAPS_LOCK_SHIFT. 

CASS 

CHKSPEED . . . . 

CHK_HI 

CHK_LO 

CMD_BL0CK. . . . 
CMDJRROR. . . . 
CNTRL_KEY. . . . 
CNTRLJHIFT. . . 
CODEJEG . . . . 
COLOR_POINTER. . 
COMMCONTROL. . . 
COM_BAUD . . . . 

COM_CTS 

COM_DATA1. . . . 
COM_DATA_A . . . 
COM_DATA_B . . . 

COM_DSR 

COM_DTR 

COM_FE 

COM_GB 

COM_ID_A . . . . 
COM_ID_B . . . . 
COM_INIT . . . . 

COM_OE 

COM PB 



L WORD 


E293 


CODE 






Number 


0008 








L BYTE 


D912 


CODE 






N PROC 


F6E0 


CODE 


Length 


=0040 


Number 


0007 








L NEAR 


F59C 


CODE 






Number 


0000 








L BYTE 


0071 


DATA 






L NEAR 


0000 


CODE 


External 


Number 


3FA0 








Number 


0008 








L NEAR 


F8DE 


CODE 






L NEAR 


F8BF 


CODE 






L NEAR 


F8C5 


CODE 






L NEAR 


F89A 


CODE 






N PROC 


F876 


CODE 


Length 


=007C 


N PROC 


E6F2 


CODE 


Length 


=0003 


L BYTE 


D935 


CODE 






L BYTE 


D94F 


CODE 






L NEAR 


F8B0 


CODE 






L NEAR 


F887 


CODE 






L NEAR 


F8E0 


CODE 






L BYTE 


D974 


CODE 






L WORD 


0082 


DATA 






L WORD 


001A 


DATA 






L WORD 


0080 


DATA 






L WORD 


001C 


DATA 






Number 


003A 








Number 


0040 








Number 


0040 








L NEAR 


E705 


CODE 






N PROC 


F672 


CODE 


Length 


=0014 


L BYTE 


FFFD 


CODE 






L BYTE 


COOO 


CODE 






L BYTE 


0042 


DATA 






Number 


0001 








Number 


001D 








Number 


0004 








Number 


F000 








Number 


03D4 








Number 


0065 








L WORD 


E729 


CODE 






Number 


0010 








N PROC 


E729 


CODE 


Length 


=0010 


Number 


03F8 








Number 


02F8 








Number 


0020 








Number 


0001 








Number 


0008 








N PROC 


E8E2 


CODE 


Length 


=0023 


Number 


03FA 








Number 


02FA 








N PROC 


E787 


CODE 


Length 


=003A 


Number 


0002 








N PROC 


E8B6 


CODE 


Length 


=002C 
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C0M_PE .... 
C0M_RTS. . . . 
C0M_RXD. . . . 
COMJTAT . . . 
COMTE .... 
COMJXD. . . . 
CONTROLC . . . 
C0NTR0L_BYTE . 
C0NT_CNT . . . 

CR 

CRCJRROR. . . 

CURCYL 

C_BCD2HEX. . . 

C_DATA1 

C_DY_M0 

C_DY_YR 

C_GDAYS 

C_GRET 

C_RBCD 

C_RBLP 

C_RBRET 

C_READ 

CRHEX 

C_RM0 

C_RMLP 

C_WERR 

C_WHEX 

C_WMLP 

C_WRITE 

C_WYLP 

DATA_SEG . . . . 

DCOLON 

DCRLF 

DELETE_KEY . . . 
DHEXBYTE . . . . 
DHEXLONG . . . . 

DHEXNIB 

DHEXWORD . . . . 
DIAGNOSTICSJ . . 
DISKETTE_I01 . . 
DISKETTESTATUS. 
DISKSTATE. . . . 
DISKJTATUS. . . 
DISPPASS. . . . 
DIS_DMACC. . . . 

DLX_KB 

DMACCEL 

DMA_ADDR_0 . . . 
DMA_ADDR_1 . . . 
DMA_ADDR_2 . . . 
DMA_ADDR_3 . . . 
DMA_CMD_DISABLE. 
DMA_CMD_ENABLE . 
DMA_COMMAND. . . 
DMA COUNT 0. . . 



Number 


0004 








Number 


0002 








Number 


0001 








L NEAR 


E87D 


CODE 






Number 


0080 








Number 


0020 








Number 


0062 








L BYTE 


0076 


DATA 






L NEAR 


DE12 


CODE 






Number 


000D 








Number 


0010 








L BYTE 


0094 


DATA 






N PROC 


F989 


CODE 


Length 


=0011 


N PROC 


F8F2 


CODE 


Length 


=001C 


L BYTE 


F902 


CODE 






L WORD 


F8F2 


CODE 






N PROC 


FA41 


CODE 


Length 


=0013 


L NEAR 


FA53 


CODE 






L NEAR 


F96C 


CODE 






L NEAR 


F972 


CODE 






L NEAR 


F97D 


CODE 






N PROC 


F90E 


CODE 


Length 


=0071 


N PROC 


F97F 


CODE 


Length 


=000A 


L NEAR 


F934 


CODE 






L NEAR 


F92C 


CODE 






L NEAR 


FA2F 


CODE 






N PROC 


FA30 


CODE 


Length 


=0011 


L NEAR 


FA01 


CODE 






N PROC 


F99A 


CODE 


Length 


=0096 


L NEAR 


F9D7 


CODE 






Number 


0040 








N PROC 


E56C 


CODE 


Length 


=000C 


N PROC 


E55F 


CODE 


Length 


=000D 


Number 


0053 








N PROC 


E589 


CODE 


Length 


=000D 


N PROC 


E578 


CODE 


Length 


=000A 


N PROC 


E596 


CODE 


Length 


=0015 


N PROC 


E582 


CODE 


Length 


=0007 


N PROC 


DAD3 


CODE 


Length 


=054D 


L NEAR 


EC99 


CODE 






L BYTE 


0041 


DATA 






L BYTE 


0090 


DATA 






L BYTE 


0074 


DATA 






L NEAR 


DCCA 


CODE 






L NEAR 


E3AB 


CODE 






Number 


0001 








Number 


0004 








Number 


0000 








Number 


0002 








Number 


0004 








Number 


0006 








Number 


0004 








Number 


0000 








Number 


0008 








Number 


0001 
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DMA_C0UNT_1. . 
DMA_C0UNT_2. . 
DMA_C0UNT_3. . 
DMAJRROR. . . 
DMA_FF_CLR . . 
DMA_MASK_BIT . 
DMA_MASK_CLR . 
DMA_MASK_WRITE 
DMA_MASTER_CLR 
DMA_M0DE . . . 
DMA_M0DE_0 . . 
DMA_M0DE_1 . . 
DMA_M0DE_2 . . 
DMA_M0DE_3 . . 
DMA_REQUEST. . 
DMA_SEGM_0 . . 
DMA_SEGM_1 . . 
DMA_SEGM_2 . . 
DMA_SEGM_3 . . 
DMA_SEG_ERROR. 
DMASTATUS . . 
DMAJEMP . . . 
DMA_UNMASK_0 . 

DNUM 

DNUMW 

DNUMW_L00P . . 
DNUMWJKIP . . 
DNUMWJPACES . 
DOUBLE .... 

DRB 

DREAD 

DROMSTRING . . 
DSTRING. . . . 

DS_LP 

DS_RET .... 
DUMMY_IRET . . 
DWRITE .... 
E12M12D. . . . 
E48M12D. . . . 
E48M48D. . . . 
ENABLE_PARITY. 
ENDOFRAM . . . 

ESTAB 

F5JMP .... 
FAIL_M .... 
FAR_CALLS. . . 
FDCJERROR. . . 
FDU_DATA1. . . 
FDU_DATA2. . . 
FD_INT .... 

FD_IO 

FD_PARMS . . . 
FLAGS_DATA1. . 
F0NTHI8. . . . 
F0NTL016 . . . 



Number 


0003 








Number 


0005 








Number 


0007 








Number 


0008 








Number 


000C 








Number 


000A 








Number 


0O0E 








Number 


000F 








Number 


000D 








Number 


000B 








Number 


0058 








Number 


0041 








Number 


0056 








Number 


0043 








Number 


0009 








Number 


0080 








Number 


0082 








Number 


0081 








Number 


0083 








Number 


0009 








Number 


0008 








Number 


000D 








Number 


0000 








N PROC 


E5AB 


CODE 


Length 


=0008 


N PROC 


E5B3 


CODE 


Length 


=0031 


L NEAR 


E5BD 


CODE 






L NEAR 


E5D3 


CODE 






L NEAR 


E5CB 


CODE 






Number 


0020 








L NEAR 


FEEA 


CODE 






L WORD 


00D0 


DATA 






N PROC 


E540 


CODE 


Length 


=0008 


N PROC 


E548 


CODE 


Length 


=0017 


L NEAR 


E54F 


CODE 






L NEAR 


E55A 


CODE 






N PROC 


FF4B 


CODE 


Length 


=0009 


L WORD 


OOCE 


DATA 






Number 


0015 








Number 


0074 








Number 


0093 








N PROC 


E5E4 


CODE 


Length 


=0054 


L NEAR 


DE9E 


CODE 






Number 


0010 








L NEAR 


E95B 


CODE 






L BYTE 


D9CC 


CODE 






F PROC 


C004 


CODE 


Length 


=005C 


Number 


0020 








N PROC 


EDEF 


CODE 


Length 


=0009 


N PROC 


EFC7 


CODE 


Length 


=000B 


N PROC 


EF57 


CODE 


Length 


=0014 


F PROC 


EC59 


CODE 


Length 


=00A1 


L BYTE 


EFC7 


CODE 






N PROC 


COOO 


CODE 


Length 


=0004 


N PROC 


C860 


CODE 


Length 


=0358 


N PROC 


C060 


CODE 


Length 


=0800 
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F0NTL08. . . . 
F0NT_HI_8X8. . 
F0NT_L0_8X16 . 
F0NT_L0_8X8. . 

F00 

F_BUF0FF . . . 
F_CHECK_VALID. 
F_CHNGLN . . . 
F_CLRHEAD. . . 
F_C0MMAND. . . 
F_C0NT . . . . 
F_CS_0UT . . . 
F_CV_DOUBLE. . 
F_CV_DR. . . . 
F_CV_HI. . . . 
F_CV_PRE2. . . 
F_CV_RET . . . 
F_CV_TST2. . . 

F_CYL 

F_D0FMT. . . . 
F_D0RATE . . . 
F_DRIVE. . . . 
F_DRVSWITCH. . 
F_DSKERR . . . 
F_DTYPE. . . . 
F_FMTD0NE. . . 
F_FORMAT_CMD . 
F_GB_DECODE. . 
F_GB_JMP . . . 
F_GB_L00P. . . 
F_GB_L00P1 . . 
F_GB_0UT . . . 
F_GB_RET . . . 
F_GB_TABLE . . 
F_GETDRV . . . 
F_GET_BYTE . . 
F_GET_VAR. . . 
F_GVD0NE . . . 
F_GV0K .... 
F_HEAD .... 
F_HEAD_SETTLE. 

F_HLT 

F_HUT 

F_I01 

F_I0_EXIT. . . 
FIOQUIT. . . 
F_I0_RET . . . 
F_JMPNR. . . . 
FMK1212 . . . 
F_M0T0R_0N . . 
F_M0T0R_P0RT . 
F_M0T0R_WAIT . 
F_M0_RET . . . 
F_NDMA .... 
F NEC DATA . . 



N PROC 


FA6E 


CODE 


Length 


=0400 


L BYTE 


C860 


CODE 






L BYTE 


C060 


CODE 






L BYTE 


FA6E 


CODE 






L NEAR 


DDCC 


CODE 






Text 


[bp+4] 








N PROC 


EF6B 


CODE 


Length 


=0048 


N PROC 


EFB3 


CODE 


Length 


=0008 


L NEAR 


E6BE 


CODE 






Text 


[bp+3] 








L NEAR 


EF2B 


CODE 






L NEAR 


F685 


CODE 






L NEAR 


EFA9 


CODE 






L NEAR 


F600 


CODE 






L NEAR 


EF94 


CODE 






L NEAR 


EF96 


CODE 






L NEAR 


EFAD 


CODE 






L NEAR 


EF9A 


CODE 






Text 


[bp+7] 








L NEAR 


E92C 


CODE 






L NEAR 


F6C0 


CODE 






Text 


[bp+0] 








N PROC 


F5F6 


CODE 


Length 


=000D 


L NEAR 


E692 


CODE 






N PROC 


F5EB 


CODE 


Length 


=000B 


L NEAR 


E937 


CODE 






Number 


004D 








L NEAR 


EE3B 


CODE 






L NEAR 


EE43 


CODE 






L NEAR 


EE03 


CODE 






L NEAR 


EE34 


CODE 






L NEAR 


EE1A 


CODE 






L NEAR 


EE47 


CODE 






L BYTE 


EDEF 


CODE 






N PROC 


F603 


CODE 


Length 


=0009 


N PROC 


EDF8 


CODE 


Length 


=0051 


N PROC 


F62E 


CODE 


Length 


=000D 


L NEAR 


F63A 


CODE 






L NEAR 


F62E 


CODE 






Text 


[bp+1] 








L NEAR 


EF46 


CODE 






Number 


0001 








Number 


OOOF 








L NEAR 


EC92 


CODE 






L NEAR 


ECED 


CODE 






L NEAR 


ECC9 


CODE 






L NEAR 


ECC2 


CODE 






L NEAR 


E68F 


CODE 






L NEAR 


E6AE 


CODE 






N PROC 


F5C6 


CODE 


Length : 


=0025 


Number 


03F2 








Number 


0025 








L NEAR 


F5EA 


CODE 






Number 


0000 








Number 


03F5 
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F_NEC_RDY. . . . 
F_NEC_RESET. . . 
F_NEC_RESET_RET. 
F_NEC_STATUS . . 
F_N0L0FMT. . . . 
F_NOMEDFMT . . . 
F_N0PASS . . . . 
FNORETRY. . . . 
F_N0TSTAT. . . . 

F_NR1 

F_NR_RET . . . . 
F_NUMSECS. . . . 
F_NURATE . . . . 
FNUSTATE. . . . 
F_NU_C0NT. . . . 
FJDPPSFMT. . . . 

FPASS2 

F_PB_ERRET . . . 
F_PB_RET . . . . 
F_PUT_BYTE . . . 

F_R1 

F_R2 

F_RATEDONE . . . 

F_RD1 

F_RDATA 

F_RD_L00P. . . . 
F_READ_CMD . . . 
FREALDRIVE . . 
F_RECAL_CMD. . . 

FRESET 

F_RETRY 

F_RETSTAT. . . . 

F_RW1 

F_RW2 

F_RW3 

F_RW_C0MM0N. . . 
F_RW_RET .... 
F_RW_SKIP. . . . 

FS1 

F_S2 

FSD1 

F_SD2 

F_SD_RET .... 
FJECNUM .... 

F_SEEK 

F_SEEK_CMD . . . 

FSETFF 

FJETFRMT. . . . 
FJETRATE. . . . 
F_SET_DMA. . . . 

F_SIS 

F_SNSDRV_CMD . . 
F_SNSINT_CMD . . 
F_SPECIFY_CMD. . 
F SPEEDOK. . . . 



N PROC 


F63B 


CODE 


Length 


=0017 


N PROC 


F5AB 


CODE 


Length 


=001B 


L NEAR 


F5C5 


CODE 






Number 


03F4 








L NEAR 


E917 


CODE 






L NEAR 


E923 


CODE 






L NEAR 


E692 


CODE 






L NEAR 


E6E1 


CODE 






L NEAR 


F618 


CODE 






L NEAR 


F63E 


CODE 






L NEAR 


F650 


CODE 






Text 


[bp+2] 








L NEAR 


E954 


CODE 






N PROC 


F60C 


CODE 


Length 


=0022 


L NEAR 


F62A 


CODE 






L NEAR 


E932 


CODE 






L NEAR 


E6DD 


CODE 






L NEAR 


F6D8 


CODE 






L NEAR 


F6D7 


CODE 






N PROC 


F6C5 


CODE 


Length 


=001B 


L NEAR 


ED13 


CODE 






L NEAR 


ED1B 


CODE 






L NEAR 


E97F 


CODE 






L NEAR 


ED69 


CODE 






N PROC 


ED57 


CODE 


Length 


=0020 


L NEAR 


ED64 


CODE 






Number 


00E6 








Text 


[bp+8] 








Number 


0007 








N PROC 


ECFA 


CODE 


Length 


=0056 


L NEAR 


EC9D 


CODE 






L NEAR 


ECE3 


CODE 






L NEAR 


EDA3 


CODE 






L NEAR 


EDCD 


CODE 






L NEAR 


EDE4 


CODE 






N PROC 


ED77 


CODE 


Length 


=0078 


L NEAR 


EDEC 


CODE 






L NEAR 


EDC7 


CODE 






L NEAR 


EEEC 


CODE 






L NEAR 


EEE7 


CODE 






L NEAR 


EE66 


CODE 






L NEAR 


EE95 


CODE 






L NEAR 


EEA9 


CODE 






Text 


[bp+6] 








N PROC 


EEAA 


CODE 


Length 


=00A2 


Number 


OOOF 








N PROC 


F6BA 


CODE 


Length 


=000B 


N PROC 


E905 


CODE 


Length 


=0035 


N PROC 


E93A 


CODE 


Length 


=0046 


N PROC 


EE49 


CODE 


Length 


=0061 


N PROC 


F686 


CODE 


Length 


=000B 


Number 


0004 








Number 


0008 








Number 


0003 








L NEAR 


F684 


CODE 
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F_SRT_48 

FSRT96 

F_S_RECAL 

F_S_RET 

F_TABLE 

FJRCONT 

FJRCONTO 

FJRDONE 

FJSTRETRY .... 
F_WAIT_FOR_NEC . . 
F_WAIT_ONE_MS. . . 

F_WD1 

F_WDATA 

F_WD_L00P 

F_WRITE_CMD. . . . 

G4T0D 

GAME_CARD 

GDT 

GDTALIAS 

GDT_ENT 

GEN3 

G0_0N1 

G0_0N2 

G0_0N3 

G0_0N4 

GRF_GRAPHICS_DOWN. 
GRF_GRAPHICS_READ. 
GRF_GRAPHICS_UP. . 
GRF_GRAPHICS_WRITE 
GRF_LIGHT_PEN. . . 
GRF_READ_DOT . . . 
GRF_WRITE_DOT. . . 

G_72 

G8X162 

G_8X8_2 

G_ADDR 

G_ADDR_TEST. . . . 
G_ALIGN_DOT. . . . 

G_BITMASK 

G_CHAR_LP 

G_CMP_M0D 

G_C0L0R_TABLE. . . 
G_CURS_0FF .... 

G_DETM0DE 

GJXPBYT 

GJILLER 

G_F_C0NT 

GJEXIT 

G_F_I_LP 

G_F_MACH 

G_F_S_LP 

G_HI_WR 

G_IA_LP 

G_I_A_LP 

G JSFY DOT ... . 



Number 


OOOC 








Number 


OOOE 








L NEAR 


EEBE 


CODE 






L NEAR 


EF4B 


CODE 






L WORD 


ECBO 


CODE 






L NEAR 


E6B1 


CODE 






L NEAR 


E6C2 


CODE 






L NEAR 


E6E2 


CODE 






N PROC 


E665 


CODE 


Length 


=007F 


N PROC 


F652 


CODE 


Length 


=0020 


N PROC 


EF4C 


CODE 


Length 


=0008 


L NEAR 


F6B0 


CODE 






N PROC 


F691 


CODE 


Length 


=0029 


L NEAR 


F6AB 


CODE 






Number 


00C5 








Number 


0001 








Number 


0201 








L WORD 


OOAA 


DATA 


Length 


=000C 


L WORD 


00C2 


DATA 


Length 


=0004 


L WORD 


E080 


CODE 






Number 


0000 








L NEAR 


DD3E 


CODE 






L NEAR 


DD4D 


CODE 






L NEAR 


DE19 


CODE 






L NEAR 


DE28 


CODE 






N PROC 


D689 


CODE 


Length 


=0063 


N PROC 


D6EC 


CODE 


Length 


=00EF 


N PROC 


D5F4 


CODE 


Length 


=0055 


N PROC 


D7DB 


CODE 


Length 


=0106 


N PROC 


F5A8 


CODE 


Length 


=0003 


N PROC 


D550 


CODE 


Length 


=001A 


N PROC 


D56A 


CODE 


Length 


=002B 


L NEAR 


D8F1 


CODE 






L NEAR 


D7BF 


CODE 






L NEAR 


D7FE 


CODE 






N PROC 


D595 


CODE 


Length 


=005F 


L NEAR 


D806 


CODE 






L NEAR 


D588 


CODE 






L NEAR 


D5E2 


CODE 






L NEAR 


D896 


CODE 






L NEAR 


D6AF 


CODE 






L BYTE 


D8DD 


CODE 






N PROC 


D8E1 


CODE 


Length 


=001E 


L NEAR 


D829 


CODE 






L NEAR 


D8A8 


CODE 






N PROC 


D66B 


CODE 


Length 


=001E 


L NEAR 


D797 


CODE 






L NEAR 


D7D5 


CODE 






L NEAR 


D66D 


CODE 






L NEAR 


D79C 


CODE 






L NEAR 


D66F 


CODE 






L NEAR 


D84D 


CODE 






L NEAR 


D8A1 


CODE 






L NEAR 


D85D 


CODE 






L NEAR 


D565 


CODE 
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G_LDS_R 

G_LDS_W 

G_LINELP 

G_MATCHB 

G_MEDGET 

G_MED_BIT 

G_MED_IA 

G_MED_STORE 

G_MED_WR 

G_M_AREA 

G_RDL00P 

GRDIA 

G_RD_MED 

G_REPCHAR 

G_RETURN 

G_SCAN_LP 

GJCROLLER 

GJELFONT 

GJETDOWN 

G_SET_UP 

GSKP1 

G_SKP_2 

G_SKP_3 

G_SKP_4 

G_SKP_5 

G_SUPER_WR 

G_TEST_ADDR 

GJINYTEXT 

G_TST_M0D 

G_T_X0R 

G_UNREVERSE_VIDEO_LOOP 

G_W_BYTE 

GJORBIT 

HD_ERR0R 

HF_NUM 

HIRATE 

HISTORY 

HOLDON 

I13IH 

ILL_FLG 

ILLINT 

ILLLN 

ILL_LP 

ILLM1 

ILLM2 

ILL_M3 

ILLJW 

ILLJEND 

ILLJRAP 

INNERLOOP 

INSERT_KEY 

INSERT_MODE 

INSERTJHIFT 

INT00L0CN 

INT01LOCN 



L NEAR 


D70C 


CODE 


L NEAR 


D821 


CODE 


L NEAR 


D859 


CODE 


L NEAR 


D791 


CODE 


L NEAR 


D75E 


CODE 


L NEAR 


D777 


CODE 


L NEAR 


D763 


CODE 


L NEAR 


D8BD 


CODE 


L NEAR 


D885 


CODE 


L NEAR 


D64C 


CODE 


L NEAR 


D72C 


CODE 


L NEAR 


D730 


CODE 


L NEAR 


D75C 


CODE 


L NEAR 


D852 


CODE 


L NEAR 


D8D9 


CODE 


L NEAR 


D89C 


CODE 


N PROC 


D649 


CODE Length =0022 


L NEAR 


D813 


CODE 


L NEAR 


D6BD 


CODE 


L NEAR 


D629 


CODE 


L NEAR 


D5A6 


CODE 


L NEAR 


D5AC 


CODE 


L NEAR 


D5B2 


CODE 


L NEAR 


D5D5 


CODE 


L NEAR 


D5F3 


CODE 


L NEAR 


D849 


CODE 


L NEAR 


D7CB 


CODE 


L NEAR 


D845 


CODE 


L NEAR 


D61A 


CODE 


L NEAR 


D865 


CODE 


L NEAR 


D754 


CODE 


L NEAR 


D86C 


CODE 


L NEAR 


D57F 


CODE 


L BYTE 


0042 


DATA 


L BYTE 


0075 


DATA 


Number 


0000 




L NEAR 


DEBA 


CODE 


L NEAR 


DDD1 


CODE 


V WORD 


0000 


CODE External 


L NEAR 


FF41 


CODE 


N PROC 


FF23 


CODE Length =0028 


L NEAR 


E509 


CODE 


L NEAR 


E50E 


CODE 


L BYTE 


D999 


CODE 


L BYTE 


D9B2 


CODE 


L BYTE 


D9B8 


CODE 


L NEAR 


FF3E 


CODE 


L NEAR 


E505 


CODE 


N PROC 


E4BE 


CODE Length =005C 


L NEAR 


DD9E 


CODE 


Number 


0052 




Number 


0080 




Number 


0080 




L DWORD 


0000 


ABSO 


L DWORD 


0004 


ABSO 
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INT02L0CN. . 

INT03L0CN. . 

INT04L0CN. . 

INT05L0CN. . 

INT06L0CN. . 

INT07L0CN. . 

INT08L0CN. . 

INT09L0CN. . 

INTOALOCN. . 

INTOBLOCN. . 

INTOCLOCN. . 

INTODLOCN. . 

INTOELOCN. . 

INTOFLOCN. . 

INT10L0CN. . 

INT11L0CN. . 

INT12L0CN. . 

INT13L0CN. . 

INT14L0CN. . 

INT15L0CN. . 

INT16L0CN. . 

INT17L0CN. . 

INT18L0CN. . 

INT19L0CN. . 

INT1AL0CN. . 

INT1BL0CN. . 

INT1CL0CN. . 

INT1DL0CN. . 

INT1EL0CN. . 

INT1FL0CN. . 

INTR_FLAG. . 
I0_R0M_INIT. 

I0_R0M_SEG . 

I_CAL. . . . 

ICALRM . . 

ICALO . . . 
I_CAL_1_1_80 

ICALEND . . 

I_CAL_ERR. . 

ICALMAX . . 

ICALOK . . 

I_CAL_VAL. . 

I_C0M_M. . . 
I_CPU. ... 

I_CPU_ERR. . 

I_CPU_M. . . 

I_CPU_0K . . 

I_DMAC . . . 

I_DMAC_ERR . 

I_DMAC_LP. . 

I_DMAC_M . . 

I_DMAC_NIB . 

I_DMAC_0K. . 
I_DMAC_PASS2 

I DMAC RET . 



L DWORD 0008 


ABSO 


L DWORD 000C 


ABSO 


L DWORD 


0010 


ABSO 


L DWORD 0014 


ABSO 


L DWORD 


0018 


ABSO 


L DWORD 


001C 


ABSO 


L DWORD 


0020 


ABSO 


L DWORD 0024 


ABSO 


L DWORD 0028 


ABSO 


L DWORD 


002C 


ABSO 


L DWORD 


0030 


ABSO 


L DWORD 


0034 


ABSO 


L DWORD 


0038 


ABSO 


L DWORD 


003C 


ABSO 


L DWORD 


0040 


ABSO 


L DWORD 


0044 


ABSO 


L DWORD 


0048 


ABSO 


L DWORD 


004C 


ABSO 


L DWORD 


0050 


ABSO 


L DWORD 


0054 


ABSO 


L DWORD 


0058 


ABSO 


L DWORD 


005C 


ABSO 


L DWORD 


0060 


ABSO 


L DWORD 


0064 


ABSO 


L DWORD 


0068 


ABSO 


L DWORD 006C 


ABSO 


L DWORD 


0070 


ABSO 


L DWORD 


0074 


ABSO 


L DWORD 0078 


ABSO 


L DWORD 007C 


ABSO 


L BYTE 


006B 


DATA 


L WORD 


0067 


DATA 


L WORD 


0069 


DATA 


L NEAR 


DF35 


CODE 


L BYTE 


DA2E 


CODE 


L NEAR 


DF8A 


CODE 


L NEAR 


DF60 


CODE 


L NEAR 


DFB2 


CODE 


L NEAR 


DF93 


CODE 


L NEAR 


DF77 


CODE 


L NEAR 


DFA5 


CODE 


L BYTE 


DACA 


CODE 


L BYTE 


DA72 


CODE 


L NEAR 


DAF8 


CODE 


L NEAR 


DB23 


CODE 


L BYTE 


D9D3 


CODE 


L NEAR 


DB34 


CODE 


L NEAR 


DB88 


CODE 


L NEAR 


DC07 


CODE 


L NEAR 


DB98 


CODE 


L BYTE 


D9FA 


CODE 


L NEAR 


DBE7 


CODE 


L NEAR 


DC14 


CODE 


L NEAR 


DB95 


CODE 


L NEAR 


DBFA 


CODE 
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I_DMAT .... 
I_DMAT_ERR . . 
I_DMAT_M . . . 
I_DMAT_0K. . . 
I_DMAT_RET . . 
I_D_80X25. . . 

IDE 

IDINIT . . . 

I_D_M 

I_D_M0DE . . . 
I_D_0K .... 
I_D_SW .... 
I_FATAL. . . . 
I_FATAL_RET. . 
I_FDUA_M . . . 
I_FDUB_M . . . 
I_FDU_END. . . 
I_FDU_LP . . . 
I_FDU_N0T_M. . 
I_FDU_0K . . . 
I_FDU_RDY_M. . 

I_GDT 

I_GDT0 .... 
I_HARD_RESET . 
I_HDU_M. . . . 
I_HDU_0K . . . 
I_INIT_END . . 
I_KB_M .... 
I_KB_ST_M. . . 
I_N0_C0M_A . . 
I_NO_GAME_CARD 
I_N0_SCCS. . . 
I_NPU_M. . . . 
I_0PTR0M_M . . 
I_0UT_MASK . . 

I_PIC 

I_PIC_0_0K . . 
IPIC10K . . 
IPIC20K . . 
IPIC30K . . 
I_PIC_4_0K . . 
IPICEND. . . 
IPICERR. . . 
I_PIC_HARD . . 
I_PIC_H0T. . . 
I_PIC_INIT . . 
IPICM. . . . 
I_PIC_N0_H0T . 
IPICOK . . . 
I_PIC_S0FT . . 
I_PIC_TEST . . 
I_PRT_EXIT . . 
I_PRT_L00P . . 
I_PRT_M. . . . 
I PWRUP. . . . 



L NEAR 


DB6D 


CODE 




L NEAR 


DB7B 


CODE 




L BYTE 


D9ED 


CODE 




L NEAR 


DB81 


CODE 




L NEAR 


DB79 


CODE 




L NEAR 


E0F8 


CODE 




L NEAR 


DC11 


CODE 




N PROC 


EOAO 


CODE 


Length =00C4 


L BYTE 


DA14 


CODE 




L NEAR 


E15E 


CODE 




L NEAR 


EOFE 


CODE 




L NEAR 


E107 


CODE 




N PROC 


F720 


CODE 


Length =0061 


L NEAR 


F772 


CODE 




L BYTE 


DA96 


CODE 




L BYTE 


DAA3 


CODE 




L NEAR 


E4A4 


CODE 




L NEAR 


E47E 


CODE 




L BYTE 


DABO 


CODE 




L NEAR 


E4A1 


CODE 




L BYTE 


DAB4 


CODE 




N PROC 


E05E 


CODE 


Length =0042 


L NEAR 


E078 


CODE 




N PROC 


E05B 


CODE 


Length =0003 


L BYTE 


DABD 


CODE 




L NEAR 


E405 


CODE 




L NEAR 


E4A8 


CODE 




L BYTE 


DA54 


CODE 




L BYTE 


DA61 


CODE 




L NEAR 


E36C 


CODE 




L NEAR 


E386 


CODE 




L NEAR 


E37B 


CODE 




L BYTE 


DA21 


CODE 




L BYTE 


DA89 


CODE 




N PROC 


E1B7 


CODE 


Length =0009 


L NEAR 


DC1B 


CODE 




L NEAR 


DC59 


CODE 




L NEAR 


DC5D 


CODE 




L NEAR 


DC61 


CODE 




L NEAR 


DC65 


CODE 




L NEAR 


DC69 


CODE 




L NEAR 


DCC1 


CODE 




L NEAR 


DC8C 


CODE 




L NEAR 


DC4E 


CODE 




L NEAR 


DC87 


CODE 




N PROC 


E1A6 


CODE 


Length =0011 


L BYTE 


DA07 


CODE 




L NEAR 


DCB5 


CODE 




L NEAR 


DCBB 


CODE 




L NEAR 


DC3E 


CODE 




L NEAR 


DC6B 


CODE 




L NEAR 


E35A 


CODE 




L NEAR 


E341 


CODE 




L BYTE 


DA65 


CODE 




L NEAR 


DAE4 


CODE 
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I_RAM_M. . . . 

I_R0M 

I_R0M_ERR. . . 
I_R0M_M. . . . 
I_R0M_0K . . . 
I_R0M_RET1 . . 
I_R0M_RET2 . . 
I_R0M_RET3 . . 

IRTC 

I_RTC_END. . . 
I_RTC_ERR. . . 
I_RTC_HI_M . . 
I_RTC_L0_M . . 
I_RTC_M. . . . 
I_RTC_NR_M . . 
I_RTC_0K . . . 
I_VEC0 . . . . 
IVEC8 . . . . 
I_VECT0R . . . 
I_VEC_TBL. . . 

KBALT 

KBBRK 

KBCAP 

KBCTL 

KBINS 

KBLSH 

KBNUL 

KBNUM 

KBPRT 

KBRES 

KBRSH 

KBSCR 

KB_BUFFER. . . 
KB_CAP_FLAGS . 
KB_CMD_SEND. . 
KB_CMD_WLUP. . 
KB_DATA1 . . . 
KB_DATA_TABLE. 
KBJLAG. . . . 
KB_FLAG_1. . . 
KBJLUSH . . . 
KB_FLUSH_BACK. 
KB_NOT_DLX . . 
KBJTATUS. . . 
KBJYPEREAD . 
KB_TYPE_WAIT . 

KDBLO 

KDECO 

KDEC1 

KDEC2 

KDEC3 

KDEC4 

KDEC5 

KDEC6 

KDEC7 



L BYTE 


DA7F 


CODE 




L NEAR 


DB48 


CODE 




L NEAR 


DB60 


CODE 




L BYTE 


D9E0 


CODE 




L NEAR 


DB66 


CODE 




L NEAR 


DB4E 


CODE 




L NEAR 


DB56 


CODE 




L NEAR 


DB5E 


CODE 




L NEAR 


DFB2 


CODE 




L NEAR 


E018 


CODE 




L NEAR 


DFFO 


CODE 




L BYTE 


DA4C 


CODE 




L BYTE 


DA48 


CODE 




L BYTE 


DA3B 


CODE 




L BYTE 


DA50 


CODE 




L NEAR 


EOOC 


CODE 




L NEAR 


E174 


CODE 




L NEAR 


E196 


CODE 




N PROC 


E164 


CODE 


Length =0042 


N PROC 


FEF3 


CODE 


Length =0030 


Number 


00C4 






Number 


00C9 






Number 


OOC1 






Number 


00C5 






Number 


OOCO 






Number 


00C6 






Number 


OOCC 






Number 


00C2 






Number 


OOCB 






Number 


00C8 






Number 


00C7 






Number 


00C3 






L WORD 


001E 


DATA 


Length =0010 


L BYTE 


CBB8 


CODE 




N PROC 


E4B3 


CODE 


Length =000B 


L NEAR 


E4B3 


CODE 




N PROC 


CBB8 


CODE 


Length =033F 


L BYTE 


CBBF 


CODE 




L BYTE 


0017 


DATA 




L BYTE 


0018 


DATA 




L NEAR 


E2CD 


CODE 




L NEAR 


E2DC 


CODE 




L NEAR 


E320 


CODE 




Number 


0064 






L NEAR 


E310 


CODE 




L NEAR 


E305 


CODE 




Number 


00D8 






Number 


00D7 






Number 


00D6 






Number 


00D5 






Number 


00D4 






Number 


00D3 






Number 


00D2 






Number 


00D1 






Number 


OODO 
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KDEC8. . . 
KDEC9. . . 
KNONE. . . 
K_00 . . . 
K2RES . . 
K_2RET . . 
K_2T0G . . 
K_4RES . . 
K_4RET . . 
K_4T0G . . 
K_ADV_END. 
KADVPTR. 
K_ALT. . . 
K_ALT0 . . 
KALT1 . . 
K_ALT2 . . 
KALT3 . . 
K_ALT4 . . 
K_ALT5 . . 
K_ALT6 . . 
K_ALT7 . . 
K_ALT8 . . 
K_ALT9 . . 
K_BEEP . . 
K_BIT. . . 
K_BRK. . . 
K_BUF. . . 
K_CAP. . . 
K_CASE . . 
K_CTL. . . 
K_DATA1. . 
K_E0I. . . 
K_H0LD . . 
K_INS. . . 
K_INT. . . 
K_I0 . . . 
KIX . . . 
K_JMP. . . 
K_LED_CAP. 
K_LED_CMD. 
K_LED_DAT. 
K_LED_NUM. 
K_LED_RET. 
K_L0CK . . 
K_L00K . . 
K_LP . . . 
K_LSH. . . 
KN0N1 . . 
K_N0NE . . 
K_N0P. . . 
K_N0P1 . . 
K_N0_CAP . 
K_N0_CASE. 
K_N0_H0LD. 
K NO LOCK. 



Number 


OOCF 








Number 


OOCE 








Number 


OOCD 








L NEAR 


EB3C 


CODE 






L NEAR 


EB1F 


CODE 






L NEAR 


EB11 


CODE 






L NEAR 


EB16 


CODE 






L NEAR 


EAEE 


CODE 






L NEAR 


EAED 


CODE 






L NEAR 


EADB 


CODE 






L NEAR 


E87A 


CODE 






N PROC 


E86E 


CODE 


Length 


=OOOD 


L NEAR 


EAF5 


CODE 






L NEAR 


EB2F 


CODE 






L NEAR 


EB2E 


CODE 






L NEAR 


EB2D 


CODE 






L NEAR 


EB2C 


CODE 






L NEAR 


EB2B 


CODE 






L NEAR 


EB2A 


CODE 






L NEAR 


EB29 


CODE 






L NEAR 


EB28 


CODE 






L NEAR 


EB27 


CODE 






L NEAR 


EB26 


CODE 






N PROC 


EBC9 


CODE 


Length 


=0023 


N PROC 


EB8C 


CODE 


Length 


=001F 


L NEAR 


EB49 


CODE 






L NEAR 


EA5B 


CODE 






L NEAR 


EABC 


CODE 






L WORD 


EBEC 


CODE 






L NEAR 


EB07 


CODE 






N PROC 


EBEC 


CODE 


Length 


=0032 


N PROC 


EBAB 


CODE 


Length 


=0008 


L NEAR 


EA98 


CODE 






L NEAR 


EAAE 


CODE 






N PROC 


E987 


CODE 


Length 


=01D9 


N PROC 


E82E 


CODE 


Length 


=0017 


L NEAR 


EA07 


CODE 






L NEAR 


EA32 


CODE 






L NEAR 


EB6A 


CODE 






L NEAR 


EB77 


CODE 






L NEAR 


EB81 


CODE 






N PROC 


EB60 


CODE 


Length 


=002C 


L NEAR 


EB8B 


CODE 






L NEAR 


E9F9 


CODE 






F PROC 


E860 


CODE 


Length 


=0009 


L NEAR 


EBD1 


CODE 






L NEAR 


EBOB 


CODE 






L NEAR 


EAC6 


CODE 






L NEAR 


EA60 


CODE 






L NEAR 


EA63 


CODE 






L NEAR 


EB46 


CODE 






L NEAR 


E9EC 


CODE 






L NEAR 


EA3B 


CODE 






L NEAR 


EA51 


CODE 






L NEAR 


EA01 


CODE 
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K NO XCODE L NEAR EA59 

K _ NUL L NEAR EAA9 

K _ NUM L NEAR EAC8 

K _ 0K L NEAR E9B2 

K>AUSE L NEAR EA7D 

K _ PRT L NEAR EAA1 

K _ READ N PROC E845 

«"rES L NEAR EA6C 

K _ RET L NEAR E842 

K _ RSH L NEAR EBOF 

K~SCR L NEAR EAD4 

K _ SEE L NEAR E854 

K~ STAT N PROC E869 

K _ TRY N PROC EBB3 

K~XLAT L NEAR EA1B 

LABEL1 L NEAR F9A0 

LABEL2 L NEAR F9A6 

LABEL3 L NEAR F9AD 

LASTRATE L BYTE 008E 

LEAP1 L NEAR F9F4 

LEFT SHIFT Number 0002 

LEFT~SHIFT_KEY Number 002A 

LF Number OOOA 

LORATE Number 0080 

MASTAB L WORD E297 

MASTER_TBL_PTR L DWORD 0084 

MEDIA_CHANGE Number 0006 

MEDRATE Number 0040 

MEMORYJIZE L WORD 0013 

MEMTST N PROC E22F 

MEMTSTJRR L NEAR E274 

MEMTST_ERR_C L NEAR E270 

MEMTST_R1 L NEAR E242 

MEMTST_R2 L NEAR E259 

MEMTST_W1 L NEAR E236 

MEMTST_W2 L NEAR E24F 

MFG_ERR_FLAG L BYTE 0015 

MFGJST L BYTE 0012 

MORJEM L NEAR DEF3 

M0T0R_C0UNT L BYTE 0040 

MOTORJTATUS L BYTE 003F 

MOVAXCS L NEAR E650 

MT END L WORD E2AD 

M_CASS F PROC F859 

M _ EQUIP N PROC F84D 

M~SIZE N PROC F841 

NECJTATUS L BYTE 0042 

NEWFLOP Number 0002 

NIBOK L NEAR E5A4 

NMI_ENABLE Number 0080 

NMI_ENABLE_PORT Number OOAO 

NOPRINT L NEAR DE09 

NOTBOUND L NEAR FF6C 

NO_DBL_STEP L NEAR EFOD 

NO _ PMEM L NEAR DEFB 



CODE 

CODE 

CODE 

CODE 

CODE 

CODE 

CODE Length =001B 

CODE 

CODE 

CODE 

CODE 

CODE 

CODE Length =0005 

CODE Length =0016 

CODE 

CODE 

CODE 

CODE 

DATA 

CODE 



CODE 
DATA 



DATA 

CODE Length =0047 

CODE 

CODE 

CODE 

CODE 

CODE 

CODE 

DATA Length =0002 

DATA 

CODE 

DATA 

DATA 

CODE 

CODE 

CODE Length =0005 

CODE Length =000C 

CODE Length =000C 

DATA Length =0007 

CODE 



CODE 
CODE 
CODE 
CODE 
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NOJHING . . . 

NUL 

NUM_LOCK_KEY . 

NUM_L0CK_M0DE. 

NUM_LOCK_SHIFT 

N_1 

N_INT 

N_0UT 

OFFJAIL . . . 

0PT_R0M_M. . . 

0P_INT .... 

0SMERGE1 . . . 

0SMERGE2 . . . 

P0_DATA1 . . . 

P1DATA1 . . . 

P4JDATA1 . . . 

PARA_GRAPH . . 

PARA_M0N0. . . 

PARITY .... 

PARITY1M. . . 

PARITY2JI. . . 

PASS_M 

PAUSE.. 

PAUSE_MODE . . . 

PCINIT 

PICO 

PICJ 

PICICW1 . . . . 
PIC_ICW2 . . . . 
PICICW3 . . . . 
PIC_ICW4 . . . . 
PIC_NE0I . . . . 
PIC_OFF_MSK. . . 
PIC_SE0I_0 . . . 
PICSE0I1 . . . 
PICSE0I6 . . . 

PMEMCNT 

PMEMTST_R1 . . . 
PMEMTST_R2 . . . 
PMEMTST_W1 . . . 
PMEMTST_W2 . . . 
PORT_OFF . . . . 

PPASS 

PRINTERJDDR . . 
PRINTERJJDUT. . 
PRT_DATA_A . . . 
PRT_DATA_B . . . 
PRT_DATA_C . . . 
PTESTADDR. . . . 

PTSTERR 

PWRUPL 

P_8253_0 .... 
P_8253_1 .... 
P_8253_2 .... 
P 8253 CTRL. . . 



L WORD 


0096 


DATA 


Length 


=0006 


Number 


0000 








Number 


0045 








Number 


0020 








Number 


0020 








L NEAR 


F870 


CODE 






N PROC 


F85F 


CODE 


Length 


=0017 


L NEAR 


F874 


CODE 






L WORD 


OOCC 


DATA 






L BYTE 


E276 


CODE 






N PROC 


E638 


CODE 


Length 


=002D 


L DWORD 00A2 


DATA 






L DWORE 


) 00A6 


DATA 






N PROC 


E276 


CODE 


Length 


=0037 


N PROC 


D8FF 


CODE 


Length 


=01D4 


N PROC 


E537 


CODE 


Length 


=0003 


Number 


B800 








Number 


B000 








Number 


0000 








L BYTE 


E5FB 


CODE 






L BYTE 


E618 


CODE 






L BYTE 


D9BB 


CODE 






Number 


OOCA 








Number 


0008 








N PROC 


E2AD 


CODE 


Length 


=0206 


Number 


0020 








Number 


0021 








Number 


0013 








Number 


0008 








Number 


0008 








Number 


000D 








Number 


0020 








Number 


OOFF 








Number 


0060 








Number 


0061 








Number 


0066 








L NEAR 


DD7F 


CODE 






L NEAR 


DE63 


CODE 






L NEAR 


DE81 


CODE 






L NEAR 


DE59 


CODE 






L NEAR 


DE75 


CODE 






L BYTE 


0077 


DATA 






L NEAR 


DED8 


CODE 






L WORD 


0008 


DATA 


Length = 


=0004 


L BYTE 


0078 


DATA 


Length = 


=0004 


Number 


03BC 








Number 


0378 








Number 


0278 








L NEAR 


DE3C 


CODE 






L NEAR 


DEA3 


CODE 






Number 


0020 








Number 


0040 








Number 


0041 








Number 


0042 








Number 


0043 
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PINIT 

P_I0 

P_KCTRL 

P_KSCAN 

P_LP 

P_N0P 

P_0K 

P_0UT 

P_RET 

P_STAT 

P_TBL 

PJRAPCE 

RAM_ERR0R 

RAM_SIZE_END . . . 
RAM_SIZE_END_1 . . 
RAM_SIZE_LP. . . . 
RAM_SIZE_NXT . . . 
RAMJIZEJST . . . 
RESETJLAG . . . . 

RESVO 

RESV1 

RIGHTJHIFT. . . . 
RIGHT_SHIFT_KEY. . 
ROM_CHECKSUM . . . 
ROM_CHECKSUM_CNT . 
R0M_CHECKSUM_L00P. 
ROM_CHKSUM_0K. . . 

R0M_ERR 

R0M_ID 

R0M_MT 

ROMJCANJXIT. . . 
R0M_SCAN_L00P. . . 
ROM_SCAN_NEXT. . . 

RPASS 

RS232_ADDR . . . . 

RS_DLY 

RS_GBE 

RSJNIT 

RSLP 

RS_N0P 

RS_N0RM 

RS_0K 

RS_PBE 

RS_PB_GB 

RS_RET 

RSJTAT 

RSJBL 

RSWS 

RS_WS_C0M 

RS_WS_EXIT . . . . 

RS_WS_LP 

RTC_CHK 

RTC_CHK_HIGH . . . 
RTC_CHK_LOW. . . . 
RTC CHK RESET ERR. 



L NEAR 


F027 


CODE 






N PROC 


EFD2 


CODE 


Length 


=0069 


Number 


0061 








Number 


0060 








L NEAR 


FOOF 


CODE 






L NEAR 


FOOA 


CODE 






L NEAR 


F01D 


CODE 






L NEAR 


FOOB 


CODE 






L NEAR 


F005 


CODE 






L NEAR 


F034 


CODE 






L WORD 


E287 


CODE 






Number 


3F60 








L NEAR 


DF05 


CODE 






L NEAR 


DEC6 


CODE 






L NEAR 


DEDB 


CODE 






L NEAR 


DD24 


CODE 






L NEAR 


DD65 


CODE 






L NEAR 


DD14 


CODE 






L WORD 


0072 


DATA 






L DWORD 


0088 


DATA 






L WORD 


008C 


DATA 






Number 


0001 








Number 


0036 








N PROC 


E52A 


CODE 


Length 


=000D 


L NEAR 


E52D 


CODE 






L NEAR 


E52F 


CODE 






L NEAR 


E440 


CODE 






N PROC 


E51A 


CODE 


Length 


=0010 


L BYTE 


C001 


CODE 






L WORD 


C002 


CODE 






L NEAR 


E459 


CODE 






L NEAR 


E408 


CODE 






L NEAR 


E455 


CODE 






L NEAR 


DED5 


CODE 






L WORD 


0000 


DATA 


Length 


=0004 


N PROC 


E8AC 


CODE 


Length 


=000A 


L NEAR 


E900 


CODE 






L NEAR 


E3A1 


CODE 






L NEAR 


E8B1 


CODE 






L NEAR 


E77D 


CODE 






L NEAR 


E749 


CODE 






L NEAR 


E771 


CODE 






L NEAR 


E8DA 


CODE 






L NEAR 


E8D9 


CODE 






L NEAR 


E77A 


CODE 






N PROC 


E87B 


CODE 


Length 


=000D 


L WORD 


E77F 


CODE 






N PROC 


E888 


CODE 


Length 


=0024 


L NEAR 


E897 


CODE 






L NEAR 


E8A8 


CODE 






L NEAR 


E88D 


CODE 






N PROC 


E1C0 


CODE 


Length 


=006F 


L NEAR 


E22E 


CODE 






L NEAR 


E22E 


CODE 






L NEAR 


E1E1 


CODE 







ROM BIOS Listing 



1-279 



ROM BIOS Listing 



RTC_CHK_RESETJ_P 
RTC_CHK_RESET_OK 
RTC CHK_SET_ERR. 
RTC_CHK_SET_LP . 
RTC_CHK_SET_OK . 
SAVE_RAM .... 
SCC_CTL_A. . . . 
SCC_CTL_B. . . . 

SCC_FE 

SCC_0E 

SCC_PE 

SCCRXD 

SCCJBL 

SCCJXD 

SCRLLOCKKEY. . 
SCRL_L0CK_M0DE . 
SCRL_LOCK_SHIFT. 
SECT_N0T_F0UND . 
SEEKJRROR . . . 
SEEKJTATUS. . . 
SEG_FAIL .... 
SERIALJO. . . . 
SERIAL_T_OUT . . 

SET_DS 

SET_DS_WORD. . . 

SPASS_M 

STACK_R0M. . . . 

STACKJEG 

STOP 

ST0P_DISK 

SWITCH_BITS. . . . 
SYS_C0NF_A . . . . 
SYS_C0NF_B . . . . 

S_E0L 

S_ERR 

S_GET 

S_INT 

SLP 

S_NOP 

S_0K 

S_0UT 

TOCMD 

TOCOUNT 

T1CMD 

T1COUNT 

T2CMD 

T2C0UNT 

TIME_0UT 

TOD 

TRAPJESS 

T_DAY 

T_END 

T_HI 

T_HI_0RDER . . . . 
T INC 



L NEAR 


E1CF 


CODE 




L NEAR 


E1E4 


CODE 




L NEAR 


E201 


CODE 




L NEAR 


E1EE 


CODE 




L NEAR 


E204 


CODE 




L NEAR 


DD2D 


CODE 




Number 


0050 






Number 


0052 






Number 


0040 






Number 


0020 






Number 


0010 






Number 


0001 






L WORD 


E28F 


CODE 




Number 


0004 






Number 


0046 






Number 


0010 






Number 


0010 






Number 


0004 






Number 


0040 






L BYTE 


003E 


DATA 




L WORD 


OOCA 


DATA 




N PROC 


E739 


CODE 


Length =004E 


L BYTE 


007C 


DATA 


Length =0004 


N PROC 


E53A 


CODE 


Length =0006 


L WORD 


E538 


CODE 




L BYTE 


D9C4 


CODE 




L WORD 


D900 


CODE 




Number 


0030 






L NEAR 


DE21 


CODE 




N PROC 


ED50 


CODE 


Length =0007 


L WORD 


0010 


DATA 




Number 


0066 






Number 


0067 






L NEAR 


FFCD 


CODE 




L NEAR 


FFBD 


CODE 




L NEAR 


FFE1 


CODE 




N PROC 


FF54 


CODE 


Length =0096 


L NEAR 


FF99 


CODE 




L NEAR 


FFCA 


CODE 




L NEAR 


FFA2 


CODE 




L NEAR 


FFD4 


CODE 




Number 


0036 






Number 


0000 






Number 


0074 






Number 


0013 






Number 


00B6 






Number 


0266 






Number 


0080 






Number 


0001 






L BYTE 


F6E8 


CODE 




N PROC 


FE6E 


CODE 


Length =0037 


L NEAR 


FEA3 


CODE 




L NEAR 


FEC5 


CODE 




L WORD 


006E 


DATA 




L NEAR 


FEBB 


CODE 
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T_INT 

T_L0W_0RDER. . 

T_NFE 

T_NFF 

T_0FL 

T_0VERFL0W . . 

T_SET 

U12M12D. . . . 
U48M12D. . . . 
U48M48D. . . . 
VECTOR .... 
VR0M_CHKSUM_0K 
VROMJRR . . . 
VROM_SCAN_EXIT 
VR0M_SCAN_L00P 
VROM_SCAN_NEXT 

V_0 

V_01 

V_02 

V_1 

V_2 

V_21 

V_22 

V_3 

V_31 

V_3X8 

V_4 

V_6845 .... 
V_APAGE. . . . 
V_BASE6845 . . 
V_BELL .... 

V_BS 

V_C2 

V_CLR 

V_CLR_FAST . . 
V_CLR_FIN. . . 
V_CLR_T0P. . . 

V_C0L 

V_COL0RPAL . . 
V_C0L0UR . . . 
V_C0LS .... 
V_COL_0. . . . 
V_C0L_1. . . . 

V_CR 

V_CURP0S . . . 
V_CURSIZE. . . 
V_CURS_P0S . . 
V_CURS_TYPE. . 
V_DATA1. . . . 
V_DATA2. . . . 
V_FP0S .... 
V_FP0S_0 . . . 
V_FP0S_LP. . . 
V_HEIGHT . . . 
V 10 



N PROC 


FEA5 


CODE 


Length 


=004A 


L WORD 


006C 


DATA 






L NEAR 


FE78 


CODE 






L NEAR 


FE7E 


CODE 






L NEAR 


FEE1 


CODE 






L BYTE 


0070 


DATA 






L NEAR 


FE95 


CODE 






Number 


0002 








Number 


0061 








Number 


0080 








N PROC 


FFFO 


CODE 


Length 


=000F 


L NEAR 


E139 


CODE 






L NEAR 


E14E 


CODE 






L NEAR 


E152 


CODE 






L NEAR 


E111 


CODE 






L NEAR 


E14E 


CODE 






L NEAR 


F30D 


CODE 






L NEAR 


F31A 


CODE 






L NEAR 


F31B 


CODE 






L NEAR 


F322 


CODE 






L NEAR 


F32C 


CODE 






L NEAR 


F331 


CODE 






L NEAR 


F366 


CODE 






L NEAR 


F368 


CODE 






L NEAR 


F36A 


CODE 






L BYTE 


0065 


DATA 






L NEAR 


F37A 


CODE 






L NEAR 


F262 


CODE 






L BYTE 


0062 


DATA 






L WORD 


0063 


DATA 






N PROC 


F583 


CODE 


Length 


=0025 


L NEAR 


F4F8 


CODE 






L NEAR 


F308 


CODE 






L NEAR 


F2B8 


CODE 






L NEAR 


F2CF 


CODE 






L NEAR 


F2D9 


CODE 






L NEAR 


F3AC 


CODE 






N PROC 


F44F 


CODE 


Length 


=002C 


L BYTE 


0066 


DATA 






L NEAR 


F08E 


CODE 






L NEAR 


F305 


CODE 






L NEAR 


F464 


CODE 






L NEAR 


F46B 


CODE 






L NEAR 


F500 


CODE 






L WORD 


0050 


DATA 


Length 


=0008 


L WORD 


0060 


DATA 






N PROC 


F1F7 


CODE 


Length 


=001E 


N PROC 


F1E9 


CODE 


Length 


=000E 


N PROC 


F045 


CODE 


Length 


=0020 


N PROC 


F0A4 


CODE 


Length 


=0058 


N PROC 


F542 


CODE 


Length 


=001E 


L NEAR 


F554 


CODE 






L NEAR 


F54D 


CODE 






L WORD 


004C 


DATA 






N PROC 


F065 


CODE 


Length 


=003F 
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VKSCR0LL1 .... 
V_KSCR0LL2 .... 

V_LF 

V_LR0W 

V_MD_40 

V_MD_80 

V_MD_CLR 

V_MD_CLR_2K 

V_MD_CLR_8K 

V_MD_CLR_GRAPHICS. . 

V_MD_DBL 

V_MD_ENABLE 

V_MD_GRAPH 

V_MD_LEN 

V_MD_M0N0 

V_MD_WID 

V_M0DE 

V_MV 

V_MV2 

V_MV_DN 

V_MV_FAST 

V_MV_FLP 

V_N0P 

V_0UT_BYTE 

V_0VR_N0T_0K . . . . 

V_0VR_0K 

V_PAGE 

V_PAGE_0 

V_PARMS 

V_P0INTER 

V_P0SN 

VRAC 

V_RAC_INBLANK. . . . 
V_RAC_INLINE . . . . 

V_R0WS 

V_R_CURS_POS . . . . 

V_SCRL_DN 

V_SCRL_M0DE_7. . . . 
V_SCRL_MV_AND_CLR. . 

V_SCRL_P0S 

V_SCRL_TTY 

V_SCRL_TTY_GRAPHICS. 

V_SCRL_UP 

V_SCROLL_OR_CLEAR. . 

V_SET_CURS 

V_SET_CUR_POS. . . . 

V_SET_M0DE 

V_SET_M0DE_C0L0R . . 
V_SET_MODE_LP. . . . 
V_SET_NEW_CUR. . . . 

VJTAT 

V_SYNC 

VJYNC2 

VJBL 

V TERMINAL 



Number 


OOEO 








Number 


0162 








L NEAR 


F4B0 


CODE 






L NEAR 


F4BB 


CODE 






L BYTE 


F0A4 


CODE 






L BYTE 


F0B4 


CODE 






L NEAR 


F171 


CODE 






L NEAR 


F16C 


CODE 






L NEAR 


F16E 


CODE 






L NEAR 


F168 


CODE 






L NEAR 


F188 


CODE 






L BYTE 


F0F4 


CODE 






L BYTE 


F0C4 


CODE 






L WORD 


F0E4 


CODE 






L BYTE 


F0D4 


CODE 






L BYTE 


FOEC 


CODE 






L BYTE 


0049 


DATA 






L NEAR 


F295 


CODE 






L NEAR 


F2A2 


CODE 






L NEAR 


F3A5 


CODE 






L NEAR 


F2A8 


CODE 






L NEAR 


F2AB 


CODE 






L NEAR 


F0A3 


CODE 






N PROC 


F273 


CODE 


Length 


=000C 


L NEAR 


F1C4 


CODE 






L NEAR 


F1C6 


CODE 






N PROC 


F22C 


CODE 


Length 


=0047 


L NEAR 


F23E 


CODE 






L BYTE 


F0A4 


CODE 






Number 


03B4 








N PROC 


F560 


CODE 


Length 


=0011 


N PROC 


F3B1 


CODE 


Length 


=002A 


L NEAR 


F3CD 


CODE 






L NEAR 


F3C7 


CODE 






L NEAR 


F304 


CODE 






N PROC 


F215 


CODE 


Length 


=0017 


N PROC 


F390 


CODE 


Length 


=0021 


L NEAR 


F2E7 


CODE 






L NEAR 


F541 


CODE 






N PROC 


F513 


CODE 


Length 


=002F 


L NEAR 


F4C6 


CODE 






L NEAR 


F4D5 


CODE 






N PROC 


F27F 


CODE 


Length 


=0111 


L NEAR 


F2EC 


CODE 






L NEAR 


F210 


CODE 






L NEAR 


F256 


CODE 






N PROC 


FOFC 


CODE 


Length 


=00ED 


L NEAR 


F117 


CODE 






L NEAR 


F147 


CODE 






L NEAR 


F4C1 


CODE 






N PROC 


F504 


CODE 


Length 


=000F 


L NEAR 


F385 


CODE 






L NEAR 


F38A 


CODE 






L WORD 


F045 


CODE 






N PROC 


F47B 


CODE 


Length 


=0089 
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V_TERM_NOBELL. 
V_TERM_N0P . . 
V_TERM_RET . . 

V_T0P 

V_TXT_DN . . . 
V_TXT_MD . . . 
V_TXT_0K . . . 
V_TXT_RAC. . . 
V_TXT_UP . . . 
V_TXT_WAC. . . 
V_TXT_WC . . . 

V_V 

V_V2 

V_WAC 

V_WAC_END. . . 
V_WAC_HI . . . 
V_WAC_L0 . . . 

V_WC 

V_WC_END . . . 
VWCHI . . . . 
V_WC_L0. . . . 
V_WC_NEXT. . . 
V_WIDTH. . . . 

WASTE 

WASTEG . . . . 
WEREBACK . . . 
WRITE_PROTECT. 
WX2_FMT. . . . 

W_NEC 

W_NEC_RET. . . 

W_0NE 

YEARS 



L NEAR 


F482 


CODE 




L NEAR 


F4F0 


CODE 




L NEAR 


F4EE 


CODE 




L WORD 


004E 


DATA 




L NEAR 


F399 


CODE 




N PROC 


F571 


CODE 


Length =0012 


L NEAR 


F581 


CODE 




L NEAR 


F3B9 


CODE 




L NEAR 


F287 


CODE 




L NEAR 


F3E3 


CODE 




L NEAR 


F41C 


CODE 




L NEAR 


F338 


CODE 




L NEAR 


F373 


CODE 




N PROC 


F3DB 


CODE 


Length =0039 


L NEAR 


F40F 


CODE 




L NEAR 


F3FA 


CODE 




L NEAR 


F400 


CODE 




N PROC 


F414 


CODE 


Length =003B 


L NEAR 


F44A 


CODE 




L NEAR 


F433 


CODE 




L NEAR 


F439 


CODE 




L NEAR 


F433 


CODE 




L WORD 


004A 


DATA 




L NEAR 


F6D4 


CODE 




L NEAR 


EE15 


CODE 




L NEAR 


DDD5 


CODE 




Number 


0003 






L NEAR 


0000 


CODE 


External 


L NEAR 


F657 


CODE 




L NEAR 


F66B 


CODE 




L NEAR 


EF50 


CODE 




L NEAR 


F913 


CODE 
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Segments and Groups: 








Name 


Size 


Align 


Combim 


CODE 


D54B 


PARA 


COMMON 


INTVEC 


7C00 


AT 


0000 


WDRAM 


0078 


AT 


0040 



'ROM' 



Symbols: 



Name 

A1_BP 

A1BX 

A1CX 

A1_DI 

AIDS 

A1_DX 

A1ES. 

AGAINO 

AGAIN1 

AGAIN2 

AGAIN3 

AGAIN4 

AGAIN5 

AGAIN6 

ALSI 

ANOTHER 

BAD 

BBB 

BC_BAD 

BC_BUFF_RD 

BC_BUFF_WR 

BC_CC 

BC_DASD 

BC_DIAG_CTLR 

BC_DIAG_DRV 

BC_DIAG_RAM 

BC_FBT 

BC_FD 

BC_FT 

BC_PAR_RD 

BC_PAR_SET 

BC_RD 

BC_RDL 

BC_RECAL 

BC_RESET 

BC_RESET_1 

BCJEEK 

BC_TST_RDY 

BC_VR 

BC_V_W 

BC_WR 

BC_WRL 

BIOS INSTALL 



Type 


Value 


Attr 




Number 


0008 






Number 


000E 






Number 


OOOC 






Number 


0006 






Number 


0002 






Number 


000A 






Number 


0000 






L NEAR 


B01C 


CODE 




L NEAR 


B034 


CODE 




L NEAR 


B04A 


CODE 




L NEAR 


B060 


CODE 




L NEAR 


B076 


CODE 




L NEAR 


B08C 


CODE 




L NEAR 


B0A2 


CODE 




Number 


0004 






L NEAR 


B015 


CODE 




N PROC 


B000 


CODE 


Length =0831 


L NEAR 


B000 


CODE 




L NEAR 


D1B3 


CODE 




Number 


000E 






Number 


000F 






Number 


0001 






Number 


0015 






Number 


0014 






Number 


0013 






Number 


0012 






Number 


0006 






Number 


0007 






Number 


0005 






Number 


0008 






Number 


0009 






Number 


0002 






Number 


000A 






Number 


0011 






Number 


0000 






Number 


000D 






Number 


OOOC 






Number 


0010 






Number 


0004 






Number 


000E 






Number 


0003 






Number 


000B 






N PROC 


CFB4 


CODE 


Global Leng- 
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BOGUS 

BOOTSUCC. . . 

BREC 

BRJBL . . . . 
BUFFJO. . . . 

BUSY 

BUSY_WAIT. . . 
CCB_BLKS . . . 
CCB_BYTE . . . 
CCB_CMD. . . . 
CCB_DRV_B. . . 
CCB_0PT. . . . 
CCBJEND . . . 

CCFD 

CCREC 

CCRT 

CCBUSY. . . . 

CC_ER 

CHK_1 

CMD_D0NE . . . 
COMMAND_BR . . 
CONTINUE . . . 
CTLRJNIT. . . 
CTLRMISSING . 
CTLR_MX. . . . 
DC_BUFF_RD . . 
DC_BUFF_WR . . 
DC_DIAG_CTLR . 
DC_DIAG_DRV. . 
DC_DIAG_RAM. . 
DC_ECC_RD. . . 
DC_FBT . . . . 

DC_FD 

DC_FT 

DC_PAR_SET . . 

DC_RD 

DC_RDL . . . . 
DC_RECAL . . . 
DC_SEEK. . . . 
DC_STAT_RD . . 
DCJBL . . . . 
DC_TST_RDY . . 

DC_VR 

DC_WR 

DC_WRL . . . . 
DETT_B00T. . . 
DETT_B00T_END. 
DETT_BOOT_NXT. 
DISCHAR . . . 

DMACC 

DMALONG. . . . 
DMANORM. . . . 
DMA_64K. . . . 
DMA_MASK_B_3 . 
DMA MASK B S . 



L NEAR 


D17B 


CODE 




L NEAR 


D158 


CODE 




L NEAR 


D15D 


CODE 




L WORD 


D22A 


CODE 




L NEAR 


D332 


CODE 




L NEAR 


D48F 


CODE 




L NEAR 


D484 


CODE 




Number 


0004 






L NEAR 


D496 


CODE 




Number 


0000 






Number 


0020 






Number 


0005 






L NEAR 


D47A 


CODE 




Number 


0007 






Number 


0011 






Number 


0012 






L NEAR 


D4BD 


CODE 




Number 


0002 






L BYTE 


A000 


CODE 




L NEAR 


D1BA 


CODE 




N PROC 


D1E4 


CODE 


Length =033F 


L NEAR 


D3CF 


CODE 




L NEAR 


D011 


CODE 




L NEAR 


D288 


CODE 




Number 


0004 






Number 


000E 






Number 


000F 






Number 


00E4 






Number 


00E3 






Number 


00E0 






Number 


000D 






Number 


0007 






Number 


0004 






Number 


0006 






Number 


OOOC 






Number 


0008 






Number 


00E5 






Number 


0001 






Number 


000B 






Number 


0003 






L BYTE 


D254 


CODE 




Number 


0000 






Number 


0005 






Number 


000A 






Number 


00E6 






L NEAR 


D10E 


CODE 




L NEAR 


D12B 


CODE 




L NEAR 


D124 


CODE 




L NEAR 


DOAC 


CODE 




Number 


0001 






Number 


0001 






Number 


0000 






L NEAR 


D396 


CODE 




Number 


0003 






Number 


0004 
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DMA_MODE_RD. . 
DMA_MODE_WR. . 
DMANO .... 
DMA_R_STATUS . 
DMAJTART. . . 
DMA_W_ADDR . . 
DMA_W_BYTE . . 
DMA_W_CLR. . . 
DMA_W_CMD. . . 
DMA_W_CNT. . . 
DMA_W_MASK . . 
DMA_W_MASK_B . 
DMA_W_M0DE . . 
DMA_W_REQ. . . 

DNWIN 

DRV 

DRVN_0K. . . . 

DRV1 

DRV_CTLR . . . 
DRV_DIAG . . . 
DRVFORMAT . . 
DRV_RDY. . . . 
DRVJOTAL. . . 
DS_BY_HEX. .*. 
EC_ADDR_MARK . 
EC_BAD_TRK . . 

ECBC 

EC_CNTLR . . . 
EC_DMA_64K . . 
EC_ECC_C0R . . 
EC_ECC_UN. . . 
EC_INIT. . . . 
EC_N0_ERR. . . 
EC_RESET . . . 
EC_SEC_NOT_FND 
ECJEEK. . . . 
ECSTAT. . . . 
ECJIME. . . . 
ECUNDEF . . . 
ERC_CORR . . . 

ERR 

ER_MASTER_TBL . 

FALL 

FCDISB .... 
FCKBIN .... 
FCPRSTR. . . . 
FCTEND .... 

FILL 

HABS 

HABSS 

HBAD 

HBADS 

HD_QUIT. . . . 

HGOOD 

HGOODS .... 



Number 


OOOB 




Number 


0007 




L NEAR 


D399 


CODE 


Number 


0008 




L NEAR 


D349 


CODE 


Number 


0006 




Number 


OOOC 




Number 


000D 




Number 


0008 




Number 


0007 




Number 


000F 




Number 


000A 




Number 


OOOB 




Number 


0009 




Number 


0080 




L NEAR 


D032 


CODE 


L NEAR 


D1B7 


CODE 


L NEAR 


D4F2 


CODE 


Number 


0002 




L NEAR 


D3C4 


CODE 


L NEAR 


D3CB 


CODE 


L NEAR 


D076 


CODE 


Number 


0008 




N PROC 


B8C7 


CODE Length =000C 


Number 


0002 




Number 


OOOB 




Number 


0001 




Number 


0020 




Number 


0009 




Number 


0011 




Number 


0010 




Number 


0007 




Number 


0000 




Number 


0005 




Number 


0004 




Number 


0040 




Number 


OOFF 




Number 


0080 




Number 


OOBB 




Number 


0018 




L NEAR 


B8AB 


CODE 


L BYTE 


D523 


CODE 


L NEAR 


D3E6 


CODE 


Number 


0002 




Number 


0001 




Number 


0009 




Number 


004C 




L BYTE 


A001 


CODE Length =7FFF 


L NEAR 


D067 


CODE 


Number 


000F 




L NEAR 


D051 


CODE 


Number 


000D 




L NEAR 


D1D9 


CODE 


L NEAR 


D05E 


CODE 


Number 


0009 
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HMSG 

H_EXIT . . . . 
I13_BUFF_RD. . 
I13_BUFF_WR. . 
I13CC . . . . 
I13IH . . . . 
I13_PAR_RD . . 
I13PARWR . . 
I13RD . . . . 
I13RDL. . . . 
I13_RESET. . . 
I13_WR . . . . 
I13WRL. . . . 
I19_B00T_SYS . 

ID_IH 

INT_0CW1 . . . 
INT_0CW1_M0. . 
INT_0CW1_M5. . 
INT_0CW2_E0I . 
INT_WAIT . . . 
INT_W_0CW2 . . 
I0J.0NG. . . . 
I0_N0RM. . . . 

IVDBC 

IVFC 

IVNBASIC. . . 
IVN_BC . . . . 
IVN_BC_DETTE . 
IVNDISCHAR . 

IV_BC 

IV_BC_DETT . . 
IV_B00T. . . . 
IV_B00T_BUF. . 
IVINT . . . . 
IV_P_TBL_DETT. 
IV_P_TBL_WIN . 
KB_RESET . . . 
MDRVJ . . . . 

MEC 

MI 

MINT 

MNOD 

MSELTBL. . . . 

MSUC 

NOCHG 

NO_RESET . . . 
NXT_CTLR . . . 
NXT_DRV. . . . 
NZDRVS . . . . 
PAR_WR . . . . 
PAR_WR_ERX . . 

P_DMA 

P_DMACC. . . . 
P_DMA_LATCH. . 
P INT 



L NEAR 


DODC 


CODE 




L NEAR 


D0E4 


CODE 




L NEAR 


D330 


CODE 




L NEAR 


D336 


CODE 




L NEAR 


D312 


CODE 




F PROC 


D17D 


CODE Global Length =0067 


L NEAR 


D2EB 


CODE 




L NEAR 


D28B 


CODE 




L NEAR 


D33A 


CODE 




L NEAR 


D31B 


CODE 




L NEAR 


D269 


CODE 




L NEAR 


D317 


CODE 




L NEAR 


D32C 


CODE 




L NEAR 


DOED 


CODE 




L NEAR 


D161 


CODE 




Number 


0001 






Number 


0001 






Number 


0020 






Number 


0020 






L NEAR 


D3DD 


CODE 




Number 


0000 






L NEAR 


D31D 


CODE 




L NEAR 


D33C 


CODE 




Number 


0013 






Number 


0021 






Number 


0018 






Number 


0013 






Number 


0040 






Number 


0010 






L DWORD 


004C 


INTVEC 




L DWORD 


0100 


INTVEC 




L DWORD 


0064 


INTVEC 




L FAR 


7C00 


INTVEC 




L DWORD 


0034 


INTVEC 




L DWORD 


0078 


INTVEC 




L DWORD 


0104 


INTVEC 




L NEAR 


D004 


CODE 




L NEAR 


D507 


CODE 




L BYTE 


B9C5 


CODE 




L BYTE 


B8E2 


CODE 




L BYTE 


B99F 


CODE 




L BYTE 


B9E0 


CODE 




L NEAR 


D509 


CODE 




L BYTE 


B9B1 


CODE 




L NEAR 


B853 


CODE 




L NEAR 


D191 


CODE 




L NEAR 


D04D 


CODE 




L NEAR 


D08D 


CODE 




L NEAR 


DODO 


CODE 




L NEAR 


D29A 


CODE 




L NEAR 


D2DB 


CODE 




Number 


0000 






Number 


0063 






Number 


0082 






Number 


0020 
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P_TBL_DETT . 
P_TBL_WIN. . 

P_WX2 

RAMCC . . . 
RAM_CCB. . . . 
RAM_DRV_CNT. . 
RAM_KB_RESET . 
RAM_0PT. . . . 
RAM_P0 . . . . 
RAMJTAT . . . 
RAMJIME . . . 
REPEAT . . . . 

REQ_L 

REQJUCC . . . 
RET_NEAR . . . 
RET_NEAR_1 . . 
RET_NEAR_2 . . 
RET_NEAR_3 . . 
RET_NEAR_4 . . 
RET_NEAR_5 . . 
RET_N0_ERR . . 
RETJTC. . . . 
RETJIME . . . 
RET_TIME_J . . 
RET_TIME_K . . 
RE_DLY . . . . 

RE_W 

R0W1 

R0W2 

R0W3 

R0W4 

R0W5 

R0W6 

SECJIZE . . . 
SEC_SIZE_NORM. 
SEND_BYTE. . . 
SENDJRR . . . 
STATJRR . . . 
STAT_L00P. . . 
SUBTABLE . . . 

SW_B 

TOL 

TOJBL . . . . 

T1L 

T1JBL . . . . 

T2L 

T2JBL .... 

T3L 

T3JBL .... 
TI_0_1 . . . . 
TI_BC_RESET. . 
TI_FIN . . . . 
TI_KB_RESET. . 

TRDYO 

TST DRV RDY. . 



L NEAR 


CF29 


CODE 


L NEAR 


CF34 


CODE 


Number 


0320 




L BYTE 


0074 


WDRAM 


L BYTE 


0042 


WDRAM 


L BYTE 


0075 


WDRAM 


L WORD 


0072 


WDRAM 


L BYTE 


0076 


WDRAM 


L BYTE 


0077 


WDRAM 


L BYTE 


0042 


WDRAM 


L WORD 


006C 


WDRAM 


L NEAR 


B027 


CODE 


L NEAR 


D4CC 


CODE 


L NEAR 


D4D8 


CODE 


L NEAR 


D28A 


CODE 


L NEAR 


D2DD 


CODE 


L NEAR 


D48E 


CODE 


L NEAR 


D398 


CODE 


L NEAR 


D4C8 


CODE 


L NEAR 


D476 


CODE 


L NEAR 


D30F 


CODE 


L NEAR 


D4C7 


CODE 


L NEAR 


D48B 


CODE 


L NEAR 


D3EE 


CODE 


L NEAR 


D3EB 


CODE 


L NEAR 


D270 


CODE 


L NEAR 


D274 


CODE 


L NEAR 


B02D 


CODE 


L NEAR 


B043 


>:ode 


L NEAR 


B059 


CODE 


L NEAR 


B06F 


CODE 


L NEAR 


B085 


CODE 


L NEAR 


B09B 


CODE 


Number 


0200 




L NEAR 


D340 


CODE 


L NEAR 


D2DE 


CODE 


L NEAR 


D2E8 


CODE 


L NEAR 


D477 


CODE 


L NEAR 


D418 


CODE 


L NEAR 


D4DA 


CODE 


Number 


0067 




Number 


0009 




L NEAR 


D52B 


CODE 


Number 


OOOA 




L NEAR 


D534 


CODE 


Number 


0002 




L NEAR 


D53E 


CODE 


Number 


0003 




L NEAR 


D540 


CODE 


Number 


0165 




Number 


0584 




Number 


01BE 




Number 


019A 




L NEAR 


D024 


CODE 


L NEAR 


D03D 


CODE 
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UNDEF 

USABLE .... 

W2RAM 

WAIT_M0RE. . . 
WASTEO .... 
WASTE1 .... 
WASTE2 .... 
WASTE3 .... 
WASTE4 .... 
WASTE5 .... 
WASTE6 .... 
WE_BAD .... 
WINSJJSABLE. . 
WIN_BC .... 
WIN_B00T . . . 
WIN_B00T_NXT . 
WIN_C0NT . . . 
WST_CYL. . . . 
WST_DDT0 . . . 
WST_ER_BUR . . 
WST_FT0. . . . 
WST_HEADS. . . 
WST_0PT. . . . 
WST_RE_WR. . . 
WSTJTO. . . . 
WST_WR_PRE . . 
WX2JX .... 
WX2_C0NFIG . . 
WX2_C0NFIG_0 . 
WX2_C0NFIG_1 . 
WX2_FMT. . . . 
WX2_INT. . . . 

WX2_L 

WX2_LRG_0FFSET 
WX2_MSK. . . . 
WX2_MSK_DMA. . 
WX2_MSK_INT. . 
WX2_REQ. . . . 
WX2_RESET. . . 
WX2_R_C0NFIG . 
WX2_R_DATA . . 
WX2_R_STATUS . 
WX2_STAT . . . 
WX2_STAT_BUSY. 
WX2_STAT_CD. . 
WX2_STAT_DRQ . 
WX2_STAT_INT . 
WX2_STAT_I0. . 
WX2_STAT_REQ . 
WX2_WAIT . . . 
WX2_W_DATA . . 
WX2_W_MSK. . . 
WX2_W_RESET. . 
WX2_W_SELECT . 
ZFMT 



L NEAR 


D474 


CODE 


L NEAR 


D09C 


CODE 


Number 


0040 




L NEAR 


D3D8 


CODE 


L NEAR 


B01F 


CODE 


L NEAR 


B037 


CODE 


L NEAR 


B04D 


CODE 


L NEAR 


B063 


CODE 


L NEAR 


B079 


CODE 


L NEAR 


B08F 


CODE 


L NEAR 


B0A5 


CODE 


L NEAR 


B0B1 


CODE 


L NEAR 


DOBA 


CODE 


L NEAR 


D188 


CODE 


L NEAR 


D135 


CODE 


L NEAR 


D152 


CODE 


L NEAR 


D1AC 


CODE 


Number 


0000 




Number 


OOOB 




Number 


0007 




Number 


OOOA 




Number 


0002 




Number 


0008 




Number 


0003 




Number' 


0009 




Number 


0005 




L NEAR 


D4AC 


CODE 


L NEAR 


D514 


CODE 


Number 


OOOC 




Number 


0003 




N PROC 


B840 


CODE 


L NEAR 


D3F1 


CODE 


Number 


0004 




Number 


OOOC 




L NEAR 


D51E 


CODE 


Number 


0001 




Number 


0002 




L NEAR 


D4C9 


CODE 


L NEAR 


D519 


CODE 


Number 


0002 




Number 


0000 




Number 


0001 




L NEAR 


D519 


CODE 


Number 


0008 




Number 


0004 




Number 


0010 




Number 


0020 




Number 


0002 




Number 


0001 




L NEAR 


D3A0 


CODE 


Number 


0000 




Number 


0003 




Number 


0001 




Number 


0002 




L NEAR 


B880 


CODE 



CODE Global Length =0087 
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ZHEX . 
ZNX. . 
ZNX2 . 
ZTEND. 



N PROC 


B8D3 


CODE 


Length =000F 


L NEAR 


B8BA 


CODE 




L NEAR 


B8BD 


CODE 




L NEAR 


B8C1 


CODE 
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Index 



ACSII String Utilities— Display, 1-142 
Additional Keyboard Data Area, 1-14 
Addresses, 1-4 

Floppy Disk Port, 1-8 

PC 6300 PLUS, 1-4 

i8237A p_dma Controller Port, 1-4 

i8254 p_timer Port, 1-6 

18259A Programmable Interrupt Controller Port, 1-5 
Alphabetic (Migratory), 1-36 
Alphabetic (Non-Migratory), 1-40 
Alternate Numeric Keypad, 1-172 
Assembly Modules, 1-3 
Asynchronous Communication Chip (INS8250), 1-9 



B 



Background Colors— Set, 1-217 
BEL Character, 1-224 
Bound Instruction— Check, 1-262 
Break Key Sequence, 1-173 
Byte Location— Video RAM, 1-80 



Communication LSI Test, 1-140 
Constants, 1-4 

Global, 1-4 

Keyboard, 1-10 

i8237A p_dma Controller, 1-5 
Control Bytes— i8254 p_timer, 1-6 
Control Ports (General), 1-7 
Controller Tests, 1-95 

8237 p_dma, 1-95, 1-101, 1-103 

8254 p_dma p_timer, 1-95 

8259A Programmable Interrupt Controller, 1-104 

CPU, 1-95 

ROM, 1-95 
Convert BCD to Hexadecimal, 1-245, 1-246 
Convert Hexadecimal to BCD, 1-250 
CPU Interrupt Routines, 1-11 
CPU System Reset Vector, 1-264 
Cursor, 1-202 

Read, 1-203 

Read Attribute and Character, 1-213 

Set Position, 1-203 

Set Value, 1-202 

Write Attribute and Character, 1-214 

Write Character, 1-216 



D 



Call Internal HDU Init Code, 1-135 

CapLk Bytes, 1-35 

Carry Flag, 1-174 

Cassette I/O, 1-237 

Change-Line Status, 1-190 

Check Error Status, 1-231 

Check Hardware Switches for Drive Type, 1-227 

Check Valid, 1-188 

Check for Bound Instruction, 1-262 

Clear Screen, 1-131 

Clock Calendar, 1-8 

58274A, 1-8 

MM58274 Device Test, 1-115 

Read or Write, 1-242 

Write, 1-246 
Clock Test (8254), 1-138 
Clock Test (MM58274), 1-138 
Code Declaration, 1-2 
Cold Boot, 1-131 
Cold Boot Routine, 1-239 
Color Video Controller, 1-9 
Colors— Set Background and Foreground, 1-217 
Commands, 1-5 

Floppy Disk, 1-8 

i8259A Programmable Interrupt Controller, 1-5 



Data Area, 1-12 

Additional Keyboard, 1-14 

Fixed Disk, 1-13 

Floppy Disk, 1-13 

Keyboard, 1-12 

Optional Post, 1-13 

Printer and RS-232 Time-Out, 1-14 

ROM BIOS, 1-12 

System, 1-13 

Video Display, 1-13 

i8254 p_timer, 1-13 
Data Declarations, 1-11 
Days Per Month, 1-250 

Decimal Number— Display in ASCII Utilities, 1-144 
Delay Loop (One Millisecond), 1-187 
Deluxe Code Put NUL into kbjbuffer, 1-171 
Disable 8259A Programmable Interrupt Controller, 1-125 
Disk Drive Tests, 1-140 

Disk Driver Error Codes (FDU and HDU), 1-8 
Disk Drivers— Initialize, 1-131 
Diskstate, 1-188 

Display ACSII String Utilities, 1-142 
Display Decimal Number in ASCII Utilities, 1-144 
Display Hexadecimal Number in ASCII Utilities, 1-143 
Display Page (Active), 1-204 

Scroll Down, 1-212 

Scroll Up, 1-206 

Set, 1-204 

Terminal Emulator, 1-218 
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Display Routines, 1-195 
DMA Controller, 1-184 
Double Zero on Keypad, 1-173 



E 



Floppy Disk, 1-8 

Commands, 1-8 

Data Area, 1-13 

Port Addresses, 1-8 
Foreground Colors— Set, 1-217 
Format Drive, 1-17 
Function Keypad, 1-42 



Enable Video, 1-120 

Equipment Check, 1-237 

EQUs to Include Correct Code for Varying Hardware 

Versions, 1-2 

EQUs to Set rom_id Variable for UNIX, 1-2 

Error Routine-Fatal, 1-234 

Error Status-Check, 1-231 



G 



Fatal Error Routine, 1-234 

FDC — Reset and Reprogram, 1-179 

FDU, 1-8 

Controller Constants, 1-8 

Disk Driver Error Codes, 1-8 

Equates, 1-8 

Floppy Disk Commands, 1-8 

Floppy Disk Port Addresses, 1-8 

Parameter Table, 1-229 

Rate Flip-Flops— Write, 1-232 

Test, 1-137 
FDU and HDU Disk Driver Error Codes, 1- 
Filename, 1-15 

boot.src, 1-239 

bootl.src, 1-149 

cal.src, 1-242 

coml.src, 1-149 

com2.src, 1-157 

fdu6.asm, 1-147 

fdu7.asm, 1-163 

graph, src, 1-78 

hdisk.asm, 1-15 

intl8.src, 1-233 

kb.data, 1-34 

kbl.src, 1-154 

kb2.src, 1-165 

kb_buffer, 1-171, 1-175 

kb.flag, 1-171 

mem.src, 1-236 

nmi.src, 1-238 

prnscr.src, 1-261 

prt.src, 1-191 

pwrupO.src, 1-130 

pwrupl.src, 1-95 

pwrupla.src, 1-119 

pwrup2.src, 1-138 

pwrup3.src, 1-140 

pwrup4.src, 1-234 

rtc.src, 1-256 

vector. src, 1-259 

vid.src, 1-195 
Fixed Disk Data Area, 1-13 



Game Card, 1-9 

General Control Ports, 1-7 

Get Byte From FDU Parameter Table, 1-229 

Global Constants, 1-4 

Graphics Mode, 1-82 

Read Character, 1-87 

Scroll Down, 1-86 

Scroll Up, 1-82 

Write Character, 1-91 
Graphics Refresh Memory, 1-84 

Fill Rows With Fill Pattern, 1-85 

Get Offset, 1-95 

Scroll Rows, 1-84 
Graphics Support, 1-78 
Groups, 1-265, 1-284 



H 



Hard Disk (Western Digital), 1-15 

Hardware Switches — Check for Drive Type, 1-227 

HDU Init Code-Call, 1-135 

Hexadecimal Number— Display in ASCII Utilities, 1- 



143 



i8041A Keyboard Hardware Interrupt Service 

Routine, 1-165 

i8041A Keyboard Software Interrupt Request 

Routine, 1-154 

i8237A p_dma, 1-4 

Controller Constants, 1-5 

Controller Port Addresses, 1-4 
i8254 Real-Time Time Clock Test, 1-117 
18254 p_timer, 1-6 

Control Bytes, 1-6 

Counts, 1-6 

Data Area, 1-13 

Hardware Interrupt Service Routine, 1-257 

Port Addresses, 1-6 
i8259A Programmable Interrupt Controller, 1-5 

Commands, 1-5 

Hardware Interrupt Routines, 1-11 

Port Addresses, 1-5 
Illegal Opcode Interrupt Routine, 1-146 
Includes of Assembly Modules, 1-3 
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Initialize 8259A Programmable Interrupt 

Controller, 1-125 

Initialize All RAM Variables, 1-131 

Initialize Basic Hardware, 1-131 

Initialize Disk Drivers, 1-131 

Initialize Optional ROMs, 1-136 

Initialize Parallel Printer Interface, 1-194 

Initialize RS-232 Interface, 1-153 

Initialize Video, 1-107 

Input Drive Parameter, 1-228 

INS8250, 1-9 

Asynchronous Communication Chip, 1-9 

Baud Rate Time Constants, 1-150 

Compatible Modem Control Bits, 1-150 

Get Byte, 1-162 

Put Byte, 1-160 
Install Vector Table, 1-124 
Interrupt Locations, 1-11 
Interrupt Pointers— Set Up, 1-131 
Interrupt Routines, 1-11 

CPU, 1-11 

Illegal Opcode, 1-146 

Printer Software, 1-191 

RS-232 Software, 1-151 

Software, 1-11 

Time of Day, 1-256 

Unused Hardware and Illegal Software 

Interrupts, 1-260 

Video, 1-196 

i8041A Keyboard Software, 1-154 

i8254 p_timer Hardware, 1-257 

i8259A Programmable Interrupt Controller, 1-11 
Interrupt Vector Area, 1-49 
Interrupt Vectors, 1-259 



Light Pen-Read, 1-204, 1-225 



M 



Macro Definitions, 1-2 

Macros, 1-265 

Media Change, 1-190 

Memory Size Detect, 1-236 

Message Routines, 1-140 

MM58274 Clock Calendar Device Test, 1- 

MM58274 Clock Test, 1-138 

Monochrome Video Controller, 1-9 

Motherboard Switches— Read, 1-227 



115 



N 



NEC, 1-183 

Controller— Read Result Bytes, 1-183 

Controller-Send Byte, 1-232 

Interrupt, 1-230 

Ready, 1-229 
Numeric Keypad, 1-41 



O 



J 

Jump Table, 1-153 



Optional Post Data Area, 1-13 
ORG'd Font Tables, 1-251 
OS Merge Link Address, 1-14 
Overscan— Set, 1-217 



K 



Keyboard, 1-7 

Boot-Strap Options, 1-140 

Constants, 1-10 

Controller (8041), 1-7 

Data Area, 1-12 

LEDs, 1-173 

Scan Code Translation Data, 1-34 

Test (8041), 1-140 

i8041A Hardware Interrupt Service Routine, 1-165 

i8041A Software Interrupt Request Routine, 1-154 
Keypad, 1-41 

Alternate, 1-172 

Double Zero, 1-173 

Function, 1-42 

Numeric, 1-41 



Parallel Printer Interface, 1-9 

Initialize, 1-194 

Print Character, 1-193 

Read Status, 1-194 
Parameters for Diskette Operation, 1-190 
Passing Error Messages— Display, 1-107 
Pause Waiting for Another Key, 1-170 
PC 6300 PLUS Addresses, 1-4 
Port Addresses, 1-4 

Floppy Disk, 1-8 

i8237A p_dma Controller, 1-4 

i8254 p_timer, 1-6 

i8259A Programmable Interrupt Controller, 1-5 
Print Character to Parallel Printer Interface, 1-193 
Print Screen, 1-261 
Print Screen Sequence, 1-170 

Printer Software Interrupt Request Routine, 1-191 
Printer Time-Out Data Area, 1-14 
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Programmable Interrupt Controller, 1-125 

Disable, 1-125 

Initialize, 1-125 

Output Mask, 1-126 
Protected Mode Data Space, 1-15 



R 



RAM, 1-12 

Initialize All Variables, 1-131 
Size and Clear, 1-108 
Stack, 1-12 

Storage Test, 1-128 

Test, 1-17, 1-140 

Workspace, 1-50 
Read Attribute and Character at Cursor, 1-213 
Read Character in Graphics Mode, 1-87 
Read Clock Calendar Device, 1-242 
Read Current Video Status, 1-220 
Read Cursor, 1-203 
Read DASD Type, 1-226 
Read Dot, 1-79, 1-218 
Read Light Pen, 1-204, 1-225 
Read Motherboard Switches, 1-227 
Read Result Bytes From NEC Controller, 1-183 
Read Status of Parallel Printer Interface, 1-194 
Read Status of RS-232 Interface, 1-157 
Register Initialization Routine, 1-221 
Registers (6845)— Output Two Bytes, 1-205 
Reserved, 1-14 

Reset and Reprogram FDC, 1-179 
ROM, 1-100 

Data, 1-195 

Module Test, 1-100 

Test, 1-140 
ROM BIOS Data Area, 1-12 
ROMs— Test for and Initialize, 1-136 
RS-232 Interface, 1-14 

Initialize, 1-153 

Read Status, 1-157 

Software Interrupt Request Routine, 1-151 

Time-Out Data Area, 1-14 

Wait for Status, 1-159 



Scroll Rows in Graphics Refresh Memory, 1-84 

Scroll Up in Graphics Mode, 1-82 

Sector Buffer, 1-17 

Seek, 1-186 

Segments, 1-265, 1-284 

Send Byte to NEC Controller, 1-232 

Sense Interrupt Status, 1-231 

Set Active Display Page, 1-204 

Set Cursor Position, 1-203 

Set Cursor Value, 1-202 

Set Format Transfer Rate, 1-163 

Set Mode and Clear Screen, 1-198 

Set Original State, 1-228 

Set Overscan and Background/Foreground Colors, 1-217 

Set Transfer Rate, 1-228 

Software Interrupt Routines, 1-11 

State Shifts, 1-171 

Symbols, 1-265, 1-284 

System Configuration From Switches and Enable 

Video, 1-120 

System Configuration— Determine From Switches, 1-107 

System Data Area, 1-12, 1-13 

System Initialization, 1-140 

System Reset Sequence— Test for, 1-170 



Temporary Hardware Initialization, 1-130 

Terminal Emulator to Active Page, 1-218 

Test for Retry, 1-147 

Test for System Reset Sequence, 1-170 

Time Clock (i8254 Real-Time), 1-117 

Time of Day Software Interrupt Request Routine, 1-256 



U 



Utility Routines, 1-141 



V 



Scan Code Translation Data (Keyboard), 1-34 

Screen Sequence— Print, 1-170 

Screen— Print, 1-261 

Screen— Set Mode and Clear, 1-198 

Scroll Active Page Down, 1-212 

Scroll Active Page Up, 1-206 

Scroll Down in Graphics Mode, 1-86 

Scroll Positioning and Register Initialization 

Routine, 1-221 



Vector Table-Install, 1-107, 1-124 

Video Controller (Color and Monochrome), 1-9 

Video Controller Test, 1-138 

Video Display Data Area, 1-13 

Video Interrupt Service Routine, 1-196 

Video RAM, 1-15 

Video RAM Buffer— Calculate Offset of Character in 

Text Mode, 1-223 

Video RAM Byte Location, 1-80 

Video ROMS-Test for and Initialize, 1-122 

Video Status— Read Current, 1-220 
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W 



Wait for Status of RS-232 Interface, 1-159 

Western Digital Hard Disk, 1-15 

Write Attribute and Character at Cursor, 1-214 

Write Character at Cursor Position, 1-216 

Write Character in Graphics Mode, 1-91 

Write Clock Calendar Device, 1-242, 1-246 

Write Dot, 1-79, 1-218 

Write to FDU Rate Flip-Flops, 1-232 
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